Shellexecute

[Capa]

in der update.exe läuft eine schleife solange bis er die project1.exe löschen kann
hatte vorher eine isinuse abfrage drin aber dachte das klappt nicht und hab halt das
mit dem löschen eingebaut, aber das klappt ja genauso wenig ^^


Habs mit createprocess so gemacht

Delphi-Quellcode:

var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  FillChar(StartupInfo, SizeOf(StartupInfo), #0);
  StartupInfo.cb := SizeOf(StartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := SW_SHOW;
  CreateProcess(nil,PCHar(ExtractFilePath(paramstr(0))+'temp\update.exe'),nil,nil,False,0,nil,nil,StartupInfo,ProcessInfo)
end;

Und wie ich gerade sehe hat der auch kein parent mehr nur das der die datei noch nicht löschen will,
nun muss ich nur noch rausfinden warum nicht!

[Capa]

Bin durch zufall selbst drauf gekommen.
Der Ordner muss mit übergeben werden wo er es ausführen soll
wenn ich also in der project1.exe beim starten der update.exe
den ordner wo die update.exe liegt mit übergebe dann funzt alles
genauso mach ichs wenn die update.exe die "Neue" Project1.exe aufruft
den ordner '..\' angeben und dann kann ich auch den temp ordner wieder
löschen.
den nur weil ich den nicht löschen konnte bin ich drauf gekommen das mal
zu versuchen.

Delphi-Quellcode:

CreateProcess(nil,PCHar('..\project1.exe'),
              nil,nil,False,0,nil,PChar('..\'),StartupInfo,ProcessInfo)

bzw.

CreateProcess(nil,PCHar(ExtractFilePath(paramstr(0))+'temp\update.exe'),
              nil,nil,False,0,nil,PChar(ExtractFilePath(paramstr(0))+'temp\'),StartupInfo,ProcessInfo)

Danke an alle die geholfen haben

Mfg Capa