Inno Setup - Problem mit Mehrfachinstallaton...

[FriFra]

Installation deutsch:

Code:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Delphi7-Hilfe (für Delphi2005)_is1]
"Inno Setup: Setup Version"="5.1.4"
"Inno Setup: App Path"="C:\\Programme\\Del7Help"
"InstallLocation"="C:\\Programme\\Del7Help\\"
"Inno Setup: Icon Group"="Delphi7-Hilfe (für Delphi2005)"
"Inno Setup: User"="Michael"
"Inno Setup: Selected Tasks"="google,delphipraxis,delphi_forum,favicons,favicons\\auto"
"Inno Setup: Deselected Tasks"="favicons\\onetime"
"DisplayName"="Delphi7-Hilfe (für Delphi2005)"
"DisplayIcon"="C:\\Programme\\Del7Help\\Del7Help.dll"
"UninstallString"="\"C:\\Programme\\Del7Help\\unins000.exe\""
"QuietUninstallString"="\"C:\\Programme\\Del7Help\\unins000.exe\" /SILENT"
"DisplayVersion"="1"
"Publisher"="FriFra Informatik eK"
"URLInfoAbout"="http://www.frifra.de/"
"NoModify"=dword:00000001
"NoRepair"=dword:00000001

Installation english:

Code:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Delphi7-Help (for Delphi2005)_is1]
"Inno Setup: Setup Version"="5.1.4"
"Inno Setup: App Path"="C:\\Programme\\Del7Help"
"InstallLocation"="C:\\Programme\\Del7Help\\"
"Inno Setup: Icon Group"="Delphi7-Help (for Delphi2005)"
"Inno Setup: User"="Michael"
"Inno Setup: Selected Tasks"="google,delphipraxis,delphi_forum,favicons,favicons\\auto"
"Inno Setup: Deselected Tasks"="favicons\\onetime"
"DisplayName"="Delphi7-Help (for Delphi2005)"
"DisplayIcon"="C:\\Programme\\Del7Help\\Del7Help.dll"
"UninstallString"="\"C:\\Programme\\Del7Help\\unins001.exe\""
"QuietUninstallString"="\"C:\\Programme\\Del7Help\\unins001.exe\" /SILENT"
"DisplayVersion"="1"
"Publisher"="FriFra Informatik eK"
"URLInfoAbout"="http://www.frifra.de/"
"NoModify"=dword:00000001
"NoRepair"=dword:00000001

Und hier ist noch mein IS-script:[code=delphi][Setup]
AppPublisher=FriFra Informatik eK
AppPublisherURL=http://www.frifra.de/
AppVersion=1
VersionInfoVersion=1.1.0.0
AppName={cm:AppTitle}
AppVerName={cm:AppTitle}
DefaultDirName={pf}\Del7Help
DefaultGroupName={cm:AppTitle}
UninstallDisplayIcon={app}\Del7Help.dll
Compression=lzma/max
SolidCompression=yes
WizardImageFile=compiler:WizModernImage-IS.bmp
WizardSmallImageFile=compiler:WizModernSmallImage-IS.bmp
SetupIconFile=..\ico\Setup.ico
AppMutex=Del7Help
OutputBaseFilename=Del7Help

[Languages]
Name: en; MessagesFile: "compilerefault.isl";LicenseFile:lizenz_en.r tf
Name: de; MessagesFile: "compiler:Languages\German.isl";LicenseFile:lizenz _de.rtf

[Messages]
en.BeveledLabel=English
de.BeveledLabel=Deutsch

[CustomMessages]
de.AppTitle=Delphi7-Hilfe (für Delphi2005)
en.AppTitle=Delphi7-Help (for Delphi2005)
de.RemoveApp=Delphi7-Hilfe (für Delphi2005) entfernen
en.RemoveApp=remove Delphi7-Help (for Delphi2005)
de.HomePageLink=Homepage besuchen
en.HomePageLink=visit homepage
de.NoDelphi9=Delphi 2005 wurde nicht gefunden!
en.NoDelphi9=Delphi 2005 not found!
de.Google=Google einfügen
en.Google=insert Google
de.DelphiPraxis=DelphiPraxis einfügen
en.DelphiPraxis=insert DelphiPraxis
de.Delphi_Forum=Delphi-Forum einfügen
en.Delphi_Forum=insert Delphi-Forum
de.LoadFaviconsGroup=Symbole der verlinkten Webseiten
en.LoadFaviconsGroup=Icons from linked websites
de.LoadFavicons=Aus dem Internet laden
en.LoadFavicons=Load from the internet
de.Autoupdate=wöchentlich updaten
en.Autoupdate=update weekly
de.Load=nur einmalig laden
en.Load=only load once

[Files]
Source: "..\Del7Help.dll"; DestDir: "{app}"; Flags: ignoreversion
Source: "lizenz_de.txt"; DestDir: "{app}";DestName: "lizenz.txt"; Languages: de
Source: "lizenz_en.txt"; DestDir: "{app}";DestName: "license.txt"; Languages: en

[Dirs]
Name: "{commonappdata}\FriFra\Del7Help"

[Tasks]
Name: google; Description: "{cm:Google}";
Name: delphipraxis; Description: "{cmelphiPraxis}";
Name: delphi_forum; Description: "{cmelphi_Forum}";
Name: favicons; Description: "{cm:LoadFavicons}";GroupDescription:"{cm:LoadFavi consGroup}";
Name: favicons\auto; Description: "{cm:Autoupdate}";GroupDescription:"{cm:LoadFavico nsGroup}";Flags: exclusive;
Name: favicons\onetime; Description: "{cm:Load}";GroupDescription:"{cm:LoadFaviconsGrou p}";Flags: exclusive unchecked;


[Registry]
Root: HKCU; Subkey: "Software\Borland\BDS\3.0\Experts"; ValueType: STRING; ValueName: "Del7Help"; ValueData: "{app}\Del7Help.dll"; Flags: uninsdeletevalue

[INI]
Filename: "{commonappdata}\FriFra\Del7Help\Del7Help.ini" ; Section: "Del7Help"; Key: "LoadFavicon"; String: "0";Tasks:not favicons
Filename: "{commonappdata}\FriFra\Del7Help\Del7Help.ini" ; Section: "Del7Help"; Key: "LoadFavicon"; String: "1";Tasks:favicons and favicons\auto
Filename: "{commonappdata}\FriFra\Del7Help\Del7Help.ini" ; Section: "Del7Help"; Key: "LoadFavicon"; String: "2";Tasks:favicons and favicons\onetime
Filename: "{commonappdata}\FriFra\Del7Help\Del7Help.ini" ; Section: "Help"; Key: "FileName"; String: "~"
Filename: "{commonappdata}\FriFra\Del7Help\Del7Help.ini" ; Section: "Google"; Key: "Active"; String: "1";Tasks:google
Filename: "{commonappdata}\FriFra\Del7Help\Del7Help.ini" ; Section: "Google"; Key: "Active"; String: "0";Tasks:not google
Filename: "{commonappdata}\FriFra\Del7Help\Del7Help.ini" ; Section: "DelphiPraxis"; Key: "Active"; String: "1";Tasks:delphipraxis
Filename: "{commonappdata}\FriFra\Del7Help\Del7Help.ini" ; Section: "DelphiPraxis"; Key: "Active"; String: "0";Tasks:not delphipraxis
Filename: "{commonappdata}\FriFra\Del7Help\Del7Help.ini" ; Section: "Delphi-Forum"; Key: "Active"; String: "1";Tasks:delphi_forum
Filename: "{commonappdata}\FriFra\Del7Help\Del7Help.ini" ; Section: "Delphi-Forum"; Key: "Active"; String: "0";Tasks:not delphi_forum

[UninstallDelete]
Type: filesandordirs; Name: "{app}"
Type: filesandordirs; Name: "{commonappdata}\FriFra\Del7Help"

Code:

const
  COLOR_HIGHLIGHT = 13;

const
  szUrl = 'http://www.frifra.de';

function GetSysColor(nIndex: integer): cardinal;
  external '[e-mail] stdcall';

procedure UrlLabelClick(Sender: TObject);
var
  ErrorCode: Integer;
begin
  ShellExec('open', szUrl, '', '', SW_SHOW, ewNoWait, ErrorCode);
end;

procedure InitializeWizard;
var
  CancelBtn: TButton;
  UrlLabel: TNewStaticText;
begin
  CancelBtn := WizardForm.CancelButton;
  UrlLabel := TNewStaticText.Create(WizardForm);
  UrlLabel.Top := CancelBtn.Top + (CancelBtn.Height div 2) - (UrlLabel.Height div 2);
  UrlLabel.Left := WizardForm.ClientWidth - CancelBtn.Left - CancelBtn.Width;
  UrlLabel.Caption := ExpandConstant('{cm:HomePageLink}');
  UrlLabel.Font.Style := UrlLabel.Font.Style + [fsUnderline];
  UrlLabel.Cursor := crHand;
  UrlLabel.Font.Color := GetSysColor(COLOR_HIGHLIGHT);
  UrlLabel.OnClick := @UrlLabelClick;
  UrlLabel.Parent := WizardForm;
end;

function InitializeSetup: boolean;
begin
  Result := RegKeyExists(HKEY_CURRENT_USER, 'Software\Borland\BDS\3.0');
  if(not Result) then
    MsgBox(ExpandConstant('{cm:NoDelphi9}'), mbCriticalError, MB_OK);
end;

end.