war ich wohl zu langsam. ich lass dne beitrag mal trotzdem drin wegen dem codeschnipsel
du weist am "anfang" einer variablen den rückgabewert von GetTickCount zu.
danach kannst du, indem du den aktullen GetTickCOuntWert abziehst die vergangende Zeit in millisekunden erhalten:
Delphi-Quellcode:
var
a: DWord;
begin
a:=GetTickCount;
[...CODE...]
Showmessage('Es sind ' + IntToStr(GetTickCount - a) + ' ms vergangen...)
end;