AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Inno-Setup, Desktop-Icon dynamisch erstellen
Thema durchsuchen
Ansicht
Themen-Optionen

Inno-Setup, Desktop-Icon dynamisch erstellen

Ein Thema von hoika · begonnen am 30. Jul 2010 · letzter Beitrag vom 30. Jul 2010
 
Benutzerbild von DelphiBandit
DelphiBandit

Registriert seit: 19. Feb 2007
Ort: In der Lüneburger Heide
165 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Inno-Setup, Desktop-Icon dynamisch erstellen

  Alt 30. Jul 2010, 13:41
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ß
Carsten

Geändert von DelphiBandit (30. Jul 2010 um 13:43 Uhr)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:49 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz