Forum: Object-Pascal / Delphi-Language
Delphi
by turboPASCAL,
16. Jul 2005
Hm, hatte schon bei einigen Prg's von mir (ohne Grund) schnell eine 100 % CPU - Auslastung bei WinXP,
unter Dos war's weniger.
:gruebel: Vielleicht finde ich noch etwas für Dich in meinen alten Büchern.
Forum: Object-Pascal / Delphi-Language
Delphi
by turboPASCAL,
15. Jul 2005
http://www.delphipraxis.net/internal_redirect.php?p=52152#52152
eine Procedure von Hagen:procedure Delay(MSecs: Integer);
var
Tick: DWord;
Event: THandle;
begin
Event := CreateEvent(nil, False, False, nil);
try
Tick := GetTickCount + DWord(MSecs);