notgne2/tuxpaint-pencil-sharpener
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added 'Version' entry to the registry.

Browse source 
Removed use of UsingWinNT() from ThisUserOnly() and All/Current custom
page. Decided that it didn't help much on Win9x.
This commit is contained in:
John Popplewell 2005-09-16 00:56:46 +00:00
parent bcf9ac61c1
commit 6c6150caf5
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
visualc/tuxpaint.iss
View file

@ -14,6 +14,7 @@
#define AppPrefix "tuxpaint" #define AppPrefix "tuxpaint"
#define AppRegKey AppDirName #define AppRegKey AppDirName
#define AppRegValue "Install_Dir" #define AppRegValue "Install_Dir"
#define AppRegVersion "Version"
#define AppGroupName AppName #define AppGroupName AppName
#define AppExe AppPrefix+".exe" #define AppExe AppPrefix+".exe"
@ -93,6 +94,8 @@ Name: "{code:MyDesktopDir}\{#AppName}"; Filename: "{app}\{#AppExe}"; Tasks: desk
[Registry] [Registry]
Root: HKLM; Subkey: "SOFTWARE\{#AppRegKey}"; Flags: uninsdeletekey; ValueName: "{#AppRegValue}"; ValueType: string; ValueData: "{app}"; Check: AllUsers; Root: HKLM; Subkey: "SOFTWARE\{#AppRegKey}"; Flags: uninsdeletekey; ValueName: "{#AppRegValue}"; ValueType: string; ValueData: "{app}"; Check: AllUsers;
Root: HKCU; Subkey: "SOFTWARE\{#AppRegKey}"; Flags: uninsdeletekey; ValueName: "{#AppRegValue}"; ValueType: string; ValueData: "{app}"; Check: ThisUserOnly; Root: HKCU; Subkey: "SOFTWARE\{#AppRegKey}"; Flags: uninsdeletekey; ValueName: "{#AppRegValue}"; ValueType: string; ValueData: "{app}"; Check: ThisUserOnly;
Root: HKLM; Subkey: "SOFTWARE\{#AppRegKey}"; Flags: uninsdeletekey; ValueName: "{#AppRegVersion}"; ValueType: string; ValueData: "{#AppVersion}"; Check: AllUsers;
Root: HKCU; Subkey: "SOFTWARE\{#AppRegKey}"; Flags: uninsdeletekey; ValueName: "{#AppRegVersion}"; ValueType: string; ValueData: "{#AppVersion}"; Check: ThisUserOnly;
[Run] [Run]
Filename: "{app}\{#AppReadme}"; Description: "View the README file"; Flags: postinstall shellexec Filename: "{app}\{#AppReadme}"; Description: "View the README file"; Flags: postinstall shellexec
@ -129,7 +132,7 @@ end;
function ThisUserOnly(): Boolean; function ThisUserOnly(): Boolean;
begin begin
Result := UsingWinNT() and (Restricted() or CurrentUserOnly()) Result := Restricted() or CurrentUserOnly()
end; end;
function AllUsers(): Boolean; function AllUsers(): Boolean;
@ -184,8 +187,8 @@ var
Enabled, InstallAllUsers: Boolean; Enabled, InstallAllUsers: Boolean;
begin begin
Page := CreateCustomPage(wpLicense, 'Choose Installation Type', 'Who do you want to be able to use this program?'); Page := CreateCustomPage(wpLicense, 'Choose Installation Type', 'Who do you want to be able to use this program?');
Enabled := NotRestricted() and UsingWinNT(); Enabled := NotRestricted();
InstallAllUsers := NotRestricted() and UsingWinNT(); InstallAllUsers := NotRestricted();
CheckListBox2 := TNewCheckListBox.Create(Page); CheckListBox2 := TNewCheckListBox.Create(Page);
CheckListBox2.Width := Page.SurfaceWidth; CheckListBox2.Width := Page.SurfaceWidth;
CheckListBox2.Height := ScaleY(97); CheckListBox2.Height := ScaleY(97);