System.Threading muss nicht bearbeitet werden
Diese Anwendung , mit Delphi 11 kompiliert, geht auf Windows 10 und Windows XP ohne Fehler .
Delphi-Quellcode:
program IWSConsole;
{$SETPEOSVERSION 5.1}
{$SETPESUBSYSVERSION 5.1}
{$APPTYPE CONSOLE}
uses Winapi.Windows, System.Threading, System.Classes, System.Sysutils;
var rHelper:
String;
ticks:Cardinal;
begin
try
Writeln('
TEST1');
ticks := 0;
ticks :=
Winapi.Windows.GetTickCount;
Writeln(ticks);
Writeln('
TEST2');
ticks := 0;
ticks := TThread.getTickCount64;
Writeln(ticks);
Readln(rHelper);
except
On E:
Exception do
Begin
exitcode := 1;
raise Exception.Create(e.
Message);
End;
end;
end.