Keine Zulässige Win32-Anwendung seit Delphi11

[QuickAndDirty]

Auf den ersten Blick ist es auch nicht notwendig Threading zu fixen, da Emba das schon berücksichtigt.

Delphi-Quellcode:

class function TThread.GetTickCount: Cardinal;
{$IF Defined(MSWINDOWS)}
begin
  Result := Winapi.Windows.GetTickCount;
end;
{$ELSE}
begin
  Result := Cardinal(GetTickCount64);
end;
{$ENDIF}

class function TThread.GetTickCount64: UInt64;
{$IF Defined(MSWINDOWS)}
begin
  if TOSVersion.Major >=  6 then Result := Winapi.Windows.GetTickCount64 else Result := Winapi.Windows.GetTickCount;
end;
{$ELSEIF Defined(MACOS)}
begin
  Result := AbsoluteToNanoseconds(mach_absolute_time) div 1000000;
end;
{$ELSEIF Defined(POSIX)}
var
  res: timespec;
begin
  clock_gettime(CLOCK_MONOTONIC, @res);
  Result := UInt64(1000 * res.tv_sec + res.tv_nsec div 1000000);
end;
{$ELSE OTHERPLATFORM}
  {$MESSAGE Fatal 'Method not implemented for Platform'}
{$ENDIF OTHERPLATFORM}

[QuickAndDirty]

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.