[Setup]
AppName=Pack
AppVerName=Pack 1.0
AppPublisher=My Inc
CreateAppDir=no
OutputDir=C:\dlls
OutputBaseFilename=psetup
Compression=lzma
SolidCompression=yes
VersionInfoVersion=1.0.0.0
[Languages]
Name: russian; MessagesFile: C:\dlls\Russian.isl
[Messages]
BeveledLabel=OOO "My Inc."
[Files]
Source: Files\111win98.dll; DestDir: {sys}; Check: IsOS('98'); Flags: uninsneveruninstall
Source: Files\111win2k.dll; DestDir: {sys}; Check: IsOS('2K'); Flags: uninsneveruninstall
Source: Files\111winxp.dll; DestDir: {sys}; Check: IsOS('XP'); Flags: uninsneveruninstall
[Code]
var
Page: TInputOptionWizardPage;
function IsOS(ver: string): Boolean;
begin
case ver of
'98': Result:= Page.Values[0];
'2K': Result:= Page.Values[1];
'XP': Result:= Page.Values[2];
end;
end;
procedure InitializeWizard();
begin
Page := CreateInputOptionPage(wpWelcome, 'Выбор ОС',
'Выберите операционную систему которая установлена на этом компьютере.',
'После выбора нажмите Далее..',
True, False);
Page.Add('Windows 98');
Page.Add('Windows 2000');
Page.Add('Windows XP');
Page.Values[2] := True;
end;
[Registry]
Root: HKLM; SubKey: SOFTWARE\myapp; ValueType: string; ValueName: FORM; ValueData: {sys}; Flags: uninsdeletekey
Root: HKLM; SubKey: SOFTWARE\myapp; ValueType: string; ValueName: FORM1; ValueData: c:\dlls; Flags: uninsdeletekey
|
