Als Beispiel: Diese Funktion versucht beim Start den "SourcePath" von Windows zu ermitteln. Klappt das nicht, startet das Setup nicht.
[code=delphi]
Code:
function InitializeSetup: boolean;
var
szSourcePath : string;
begin
Result := (RegQueryStringValue(HKEY_LOCAL_MACHINE,'Software\Microsoft\Windows\CurrentVersion\Setup',
'SourcePath',szSourcePath)) and (szSourcePath <> '');
if(Result) then MsgBox(szSourcePath,mbInformation,MB_OK);
end;
Im Prinzip habe ich das auch nur mit den Angaben aus der Hilfedatei zusammengebaut.