Код: Выделить всё
[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {code:DetectWindows}; Flags: ignoreversion
[Code]
function DetectWindows(s: string): string;
var
SubKeyName, ResultStr: string;
begin
SubKeyName:= 'Software\Microsoft\Windows NT\CurrentVersion';
RegQueryStringValue(HKLM, SubKeyName, 'ProductName', ResultStr);
if Pos('XP', ResultStr) > 0 then
Result:= ExpandConstant('{%APPDATA}\id Software')
else
if Pos('Vista', ResultStr) > 0 then
// не знаю, будет ли это C:\Users\Ваше_имя_пользователя\AppData\LocalLow\id Software
// проверить не где
Result:= ExpandConstant('{%APPDATA}\LocalLow\id Software')
else Result:= ''; // сюда нужно вписать путь по дефолту, т.е. если не XP или Vista
end;Код: Выделить всё
[Files]
Source: Papka\*; DestDir: {app}; Flags: createallsubdirs ignoreversion recursesubdirsКод: Выделить всё
[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=userdocs:My Program.
AppID=NAV
[.Code.]
var
InstType, UnpackType: TRadioButton;
procedure InitializeWizard();
var
TypeText: TNewStaticText;
begin
TypeText := TNewStaticText.Create(WizardForm);
with TypeText do
begin
Left := WizardForm.WelcomeLabel2.Left;
Top := WizardForm.WelcomeLabel2.Top + WizardForm.WelcomeLabel2.Height - WizardForm.WelcomeLabel2.Height div 4 - ScaleY(20);
Width := WizardForm.WelcomeLabel2.Width div 2;
Caption := 'Тип установки:';
Parent := WizardForm.WelcomePage;
end;
InstType := TRadioButton.Create(WizardForm);
with InstType do
begin
Left := WizardForm.WelcomeLabel2.Left + ScaleX(20);
Top := WizardForm.WelcomeLabel2.Top + WizardForm.WelcomeLabel2.Height - WizardForm.WelcomeLabel2.Height div 4;
Width := WizardForm.WelcomeLabel2.Width div 2;
Caption := 'Установить';
Checked := True;
Parent := WizardForm.WelcomePage;
end;
UnpackType := TRadioButton.Create(WizardForm);
with UnpackType do
begin
Left := WizardForm.WelcomeLabel2.Left + ScaleX(20);
Top := InstType.Top + InstType.Height + ScaleY(3);
Width := WizardForm.WelcomeLabel2.Width div 2;
Caption := 'Распаковать файлы';
Parent := WizardForm.WelcomePage;
end;
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssDone then
if UnpackType.Checked then
begin
// Если отмечено "Распаковать файлы"
// Удаляются файлы деинсталлятора и реестра.
DeleteFile(ExpandConstant('{uninstallexe}'));
DeleteFile(ExpandConstant('{app}\unins000.dat'));
RegDeleteKeyIncludingSubkeys(HKLM, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\NAV_is1');
end;
end;