Einzelnen Beitrag anzeigen

thomas2009
(Gast)

n/a Beiträge
 
#1

Datei umbennen und gleichzeitig ausführen

  Alt 6. Apr 2011, 21:49
Hi

kann jemand mir sagen, warum manch mal klappt und manch mal nicht ?
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not FileExists(ExtractFilePath(Application.ExeName)+'blabla.exe') then
begin
RenameFile('blabla.exe', 'haha.exe');
shellexecute(1,'open','"haha.exe"','','',SW_show);
end;
end;