Ещё раз всем привет!
1). Есть такой код:
[more]
[Code]
procedure InitializeWizard();
var
srcFile, destFile: String;
Begin
srcFile:= '';
if GetOpenFileName('', srcFile, '', 'Конфигурационный файл|*.cfg', 'cfg') then
if GetSaveFileName('', destFile, '', 'Конфигурационный файл|*.cfg|', 'txt') then
FileCopy(srcFile, destFile, True);
End;[/more]
Как сделать так, что бы это окно вылезало не вначале, а в конце установки?
2.) Ещё один вопросик...
[more]
[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DirExistsWarning=no
DefaultDirName={pf}\My Program
DisableStartupPrompt=true
Uninstallable=false
DisableProgramGroupPage=true
[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}
[Tasks]
Name: askini; Description: Укажите расположение ключа; GroupDescription: Configuration:
[Code]
var
Page: TInputFileWizardPage;
procedure InitializeWizard();
begin
Page := CreateInputFilePage(wpSelectTasks,
'Select Key File Location', 'Where is Key located?',
'Select where Key is located, then click Next.');
Page.Add('Select Key File', // caption
'Key Files (*.reg)|*.reg|All Files|*.*', // filters
'.reg'); // default extension
end;
function NextButtonClick(CurPage: Integer): Boolean;
begin
Result:= True;
if CurPage = Page.ID then
begin
if FileExists(Page.Values[0]) then
begin
ForceDirectories('{app}\cstrike\maps\');
Result:= FileCopy(Page.Values[0], '{app}\cstrike\maps\'+ ExtractFileName(Page.Values[0]), False);
end
else Result:= False;
end;
end;
function ShouldSkipPage(PageID: Integer): Boolean;
begin
if (PageID = Page.ID) and Not IsTaskSelected('askini') then
Result:= True;
end;[/more]
Так вот здесь я хочу проделывать тоже самое, только не с одним файлом, а с папкой. То-есть что бы пользователь мог указать директорию с файлами, а не один файл открывать...
Заранее приогромнейшее спасибо!
1). Есть такой код:
[more]
[Code]
procedure InitializeWizard();
var
srcFile, destFile: String;
Begin
srcFile:= '';
if GetOpenFileName('', srcFile, '', 'Конфигурационный файл|*.cfg', 'cfg') then
if GetSaveFileName('', destFile, '', 'Конфигурационный файл|*.cfg|', 'txt') then
FileCopy(srcFile, destFile, True);
End;[/more]
Как сделать так, что бы это окно вылезало не вначале, а в конце установки?
2.) Ещё один вопросик...
[more]
[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DirExistsWarning=no
DefaultDirName={pf}\My Program
DisableStartupPrompt=true
Uninstallable=false
DisableProgramGroupPage=true
[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}
[Tasks]
Name: askini; Description: Укажите расположение ключа; GroupDescription: Configuration:
[Code]
var
Page: TInputFileWizardPage;
procedure InitializeWizard();
begin
Page := CreateInputFilePage(wpSelectTasks,
'Select Key File Location', 'Where is Key located?',
'Select where Key is located, then click Next.');
Page.Add('Select Key File', // caption
'Key Files (*.reg)|*.reg|All Files|*.*', // filters
'.reg'); // default extension
end;
function NextButtonClick(CurPage: Integer): Boolean;
begin
Result:= True;
if CurPage = Page.ID then
begin
if FileExists(Page.Values[0]) then
begin
ForceDirectories('{app}\cstrike\maps\');
Result:= FileCopy(Page.Values[0], '{app}\cstrike\maps\'+ ExtractFileName(Page.Values[0]), False);
end
else Result:= False;
end;
end;
function ShouldSkipPage(PageID: Integer): Boolean;
begin
if (PageID = Page.ID) and Not IsTaskSelected('askini') then
Result:= True;
end;[/more]
Так вот здесь я хочу проделывать тоже самое, только не с одним файлом, а с папкой. То-есть что бы пользователь мог указать директорию с файлами, а не один файл открывать...
Заранее приогромнейшее спасибо!
[/more]
