Inno-Setup, Desktop-Icon dynamisch erstellen

[DelphiBandit]

Die Funktion zur Prüfung muß wohl einen Boolean zurückliefern.

Habe mir mit IsTool, welches übrigens viel übersichtlicher als InnoScripts direkt zu bearbeiten, mal gerade unser Setup überarbeitet. Diese Version lässt sich durchkompilieren und sobald 0001 in der Registry drinsteht wird das Icon nicht mehr mit installiert. Habs kurz getestet. Zeigt auch gleich wie man an den Registry-Wert drankommt. Hoffe ich habe Deine Frage richtig verstanden

Delphi-Quellcode:

[Icons]
Name: {group}\Handbuch; Filename: {app}\Handbuch.pdf; WorkingDir: {app}; IconFilename: {app}\Handbuch.ico; IconIndex: 0; Check: ShouldInstallIcon

[Code]
function ShouldInstallIcon: Boolean;
var succ: boolean;
    rval: dword;
begin
  // Ist erstmal gewünscht
  Result := True;

  if RegKeyExists(HKEY_CURRENT_USER, 'Software\MyApp') then
  begin
    // rval = 1 - wurde bereits schon mal installiert
    if RegQueryDWordValue(HKEY_CURRENT_USER, 'Software\MyApp\', 'Icon', rval) and
       (rval = 1) then
      Result := False;
  end;
end;

Gruß