Programm in Systemsteuerung/Software eintragen

[Zacherl]

Sorry,
ich meinte natürlich alles als Zeichenfolge

Florian

[Gentleman]

Vielen Dank für die schnelle Hilfe!

Ich werde das ganze mal durchtesten...

[Tommy1988]

Hey.. kann mir wer von euch sagen, wie ich soeinen Deinstaller bewerkstellige?

Habe mal etwas von einer BAT-Datei gehört

[DeddyH]

Wieso denn ein Batchfile? Ich habe vor Jahren auch mal ein Setup schreiben müssen und habe das im Groben so realisiert: es gibt eine Setup.exe und eine Uninstall.exe. Die Setup.exe protokolliert alle Änderungen, die sie vornimmt, in einer Datei und trägt die Uninstall.exe als UninstallString in der Registry ein. Wird diese aufgerufen, liest sie die Protokolldatei aus und macht diese Änderungen rückgängig (Löschen der angelegten Dateien, Registryschlüssel etc.). Das hat den Vorteil, dass das Risiko, zuviel zu löschen, minimiert wird.

[Progman]

Dieser Inhalt muss benutzt werden, damit eine .bat Datei entsteht, die die Exe Datei löscht, sowie sich danach selbst:

Sourcecode:

Delphi-Quellcode:

procedure KillSelf(MainForm: TForm);  
begin  
  with TStringList.Create do try  
    Add(':Label1');  
    Add('del "' + Paramstr(0) + '"');  
    Add('if Exist "' + Paramstr(0) + '" goto Label1');  
    Add('del "' + ExtractFilePath(Paramstr(0)) + 'name.bat"');  
    SavetoFile(ExtractFilePath(Paramstr(0)) + 'name.bat');  
  finally Free end;  
  //Ausführen 
  ShellExecute(MainForm.Handle, 'open', PChar(ExtractFilePath(Paramstr(0)) +  
    'name.bat'), nil, nil, SW_HIDE);  
  //Beenden 
  MainForm.Close;  
end; 

//Aufgerufen werden kann die Funktion wie folgt: 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  KillSelf (Self); 
end;

Und die Exe (uninstall.exe) muss vorher natürlich alles andere löschen (Dateien, Reg-Einträge etc.)

@DeddyH:
Es ist ja unschön, wenn die uninstall.exe zurückbleibt, dafür die Lösung mit der bat-Datei

[DeddyH]

Ach, das war mit der Batchdatei gemeint