Zitat:
Abgesehen davon, Sleep() friert den Prozess/das Programm ein.
Nein, tut es nicht (mehr)
Also wenn ich folgenden Code in 10.4 rein kopiere, hängt meine Anwendung. Bin über die Aussage auch verwundert?!
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
T : LongWord;
begin
T := GetTickCount; // oder eine andere Zeitfunktion
while True do
begin
if Integer(GetTickCount - T) > 10 * 1000 then
begin // Integer wegen eventuellem Überlauf, wenn der Rechner mehr als 48 Tage läuft
T := GetTickCount;
Sleep(10 * 1000);
end;
end;
end;