Code: Alles auswählen
procedure Delay(dwMillSec: DWord);
var
aHandle: THandle;
dwStart:DWord;
begin
aHandle := GetCurrentThread;
dwStart := GetTickCount + dwMillSec;
while MsgWaitForMultipleObjects(1, aHandle, False, dwMillSec, QS_ALLINPUT) <> WAIT_TIMEOUT do
begin
Application.ProcessMessages;
dwMillSec := GetTickCount;
if dwMillSec < dwStart then
dwMillSec := dwStart - dwMillSec
else
Exit;
if endebef = true then
begin
exit;
endebef := false;
end;
end;
end;
doch bei linux mit lazaruis mekkert er, das er da einige sachen nicht kennt
muss man dafür villeicht ein paar units einbinden?
und welche?
oder gibt es dafür eine alternative?
sleep funktionierte nicht so wie dashier unter windows...