nach beendigung des eig. Programmes, dieses Programm löschen

[cRayZo]

okay thx an alle,
ich schau mir mal das Programm an, thx scrat1979.
ich fang auch gar nicht damit an, dass es was kostet, ich dachte halt, sowas lässt sich auch programmieren^^

theoretisch kann man das mit dem usb-stick doch auch prgrammieren oder?
Also ich wüsstes jetzt nur mit ner diskette, weil ich da nen quellcode von früher habe.
Wenn eine Diskette im Laufwerk ist..

Delphi-Quellcode:

 procedure TForm1.Button1Click(Sender: TObject);
var
  ErrorMode: word;
begin
  {Meldung eines kritischen Systemfehlers vehindern}
  ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
  try
    if DiskSize(1) = -1 then
      ShowMessage('Drive not ready');
  finally
    {ErrorMode auf den alten Wert setzen}
    SetErrorMode(ErrorMode);
  end;
end;

..dann Aktion, else andere aktion.

Geht das auch mit einem usb-stick? (vll mit einer speziellen Datei auf dem usb-Stick, der den ausschlag gibt?)
schonmal thx
mfg cRayZo


edit:

Zitat von s-off:

Das mit der Batch-Datei funktioniert folgendermaßen => Link

okay danke schonmal, mir wird nur gesagt, dass
ShellExecute
ein undefinierter bezeichner ist. Hast du eine Idee woran das liegt?