Auf dem ersten Tab solltest Du ein GUID Feld einrichten, sowie einen Button zum Erstellen.
Code: Alles auswählen
Procedure.s MakeGUID()
LBuffer.s = Space(76)
SBuffer.s = Space(38)
CoCreateGuid_(GuidId.GUID)
StringFromGUID2_(GuidId, LBuffer,76);
WideCharToMultiByte_(0, 0, LBuffer, 76, SBuffer, 38, 0, 0);
ProcedureReturn SBuffer
EndProcedure
GUID mit in den Projektoptionen speichern, wichtig!
Wenns leer bleibt, ist alles beim alten, ansonsten in der Registry eintragen:
HKEY_CURRENT_USER\SOFTWARE\thorsten1897\EasySetup
Schlüssel = GUID
Wert = Pfad
Wenn Wert mit GUID des Setups vorhanden, diesen Pfad vorschlagen, ansonsten wie bisher.
Bei den Benutzeraktionen kannste dann später auch eine vorherige Deinstallation ermöglichen, wenn GUID vorhanden.
Dieser eine Eintrag, zumal optional belastet die Registry nicht, und ist IMHO sehr praktisch
Gruß
Thomas
// Nachtrag:
Statt der Registry kannste auch eine Preference-Datei in:
anlegen
