Delphi-Quellcode:
var
Start, Ende: Int64;
begin
QueryPerformanceCounter(Start);
Funktion();
QueryPerformanceCounter(Ende);
ShowMessage(IntToStr(Ende - Start));
end;
Übrigens: Wenn du unbedingt die benötigte Zeit (also zum Beispiel Millisekunden) ermitteln willst, musst du noch mit QueryPerformanceFrequency arbeiten, denn diese Frequenz hängt vom Prozessor ab und ist von daher nicht an jedem PC gleich (hoffentlich hab ich da jetzt nichts falsches gesagt, weiß es nicht mehr ganz genau
)