Nun ja, wie macht man es denn im richtigen Leben, wenn man keine Stoppuhr hat? Man merkt sich die Anfangs- und Endzeit und zieht dann von der Endzeit die Anfangszeit ab:
Delphi-Quellcode:
start := GetTickCoint;
// tu was
end := GetTickCount;
zeit := end - start;
Da GetTickCount die Zeit in Millisekunden angibt, hast du danach die Laufzeit in Millisekunden.
Allerdings ist zu beachten, dass Windows ein Multitaskbetriebssystem ist und dieser Wert ein sehr grober Wert ist, da die CPU zwischenzeitlich auch Code in anderen Threads anderer Prozesse ausführt. Willst du es genauer musst du mit
GetThreadTimes arbeiten oder versuchen die CPU Taktzyklen zu ermitteln. Das wäre dann am genausten und von der Auslastung des Systems unabhängig.