Registriert seit: 18. Mai 2003
634 Beiträge
|
Re: Buttonklick und Programm neustarten [Hilfe]
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
|
|
Zitat
|