Einzelnen Beitrag anzeigen

Benutzerbild von SleepyMaster
SleepyMaster

Registriert seit: 18. Mai 2003
634 Beiträge
 
#14

Re: Buttonklick und Programm neustarten [Hilfe]

  Alt 16. Okt 2003, 06:27
Es würde doch auch mit einer Batchdatei gehen, die von deinem Programm zur Laufzeit erstellt wird.

Delphi-Quellcode:
var f: Textfile;
begin
    AssignFile(f, ChangeFileExt(ParamStr(0), '.bat'));
    ReWrite(f);
    WriteLn(f, ':1');
    WriteLn(f, Format('sleep 1000', [ParamStr(0)]));
    WriteLn(f, Format('Erase '+extractFilename(paramstr(0)), [ParamStr(0)]));
    WriteLn(f, Format('If exist '+extractFilename(paramstr(0))+' Goto 1', [ParamStr(0)]));
    WriteLn(f, Format('copy x '+extractFilename(paramstr(0)), [ParamStr(0)]));
    WriteLn(f, Format('Erase x', [ParamStr(0)]));
    WriteLn(f, Format(extractFilename(paramstr(0)), [ParamStr(0)]));
    WriteLn(f, 'Erase '+ExtractFileName(ChangeFileExt(ParamStr(0),'.bat')));
    CloseFile(f);
    ShellExecute(handle,'open',PChar(ExtractFileName(ChangeFileExt(ParamStr(0),'.bat'))),nil,PChar(ExtractFileDir(ChangeFileExt(ParamStr(0),'.bat'))),SW_HIDE);
So mach ich das zumindestens bei meinem Programm nach dem ich das Update herruntergeladen hab.
Musste den Code nur halt noch en bissel für dein Programm anpassen
  Mit Zitat antworten Zitat