Zitat:
Delphi-Quellcode:
while IsExeRunning(ExtractFileName(lpFile)) do
begin
TShellExecEx.seDelay(25);
if bProcessMessages then
Application.ProcessMessages;
end;
end;
bProcessMessages ?
Dein seDelay macht das doch bereits, nur dass dort viele Sachen falsch/garnicht behandelt werden.
z.B. HotKeys und Menü-Ereignisse sind falsch oder gehen verloren.
Da kannst'e genauso gut im seDelay direkt das Application.ProcessMessages oder Application.HandleMessage; benutzen.
Dieser Parameter ist so oder so sinnlos, da immer Messages behandelt werden.
Zitat:
Tick := GetTickCount + DWord(Milliseconds);
In neuen Delphi-Projekten ist jetzt die Index- und Bereichsprüfung standardmäßig aktiv.
Nach 49,7 Tagen gibt es einen Überlauf und wenn du Diesen gut triffst, dann knallt es.
PS:
TFile.Exists und
TDirectory.Exists