Ich habe himitu's Version (Link erster Beitrag) verwendet. Mit den anderen kann ich nichts anfangen, da es kein Delphi-Code ist.
Mehr als das hier bekomme ich nicht hin und selbst das ist bestimmt noch falsch
Delphi-Quellcode:
var
high, lastLow: Int64;
begin
high := 0;
low := GetTickCount();
if lastLow > low then
// high += 0x100000000I64; ...
lastLow = low;
// return high | (ULONGLONG)low;
end;