Genri
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program
[_Code]
procedure InitializeWizard();
var
srcFile, destFile: String;
begin
srcFile := '';
if GetOpenFileName('', srcFile, '',
'Text Documents (*.txt)|*.txt|All Files|*.*', 'txt') then
begin
if GetSaveFileName('', destFile, '',
'Text Documents (*.txt)|*.txt|All Files|*.*', 'txt') then
begin
FileCopy(srcFile, destFile, True);
end;
end;
end;
|
