Einzelnen Beitrag anzeigen

QuickAndDirty

Registriert seit: 13. Jan 2004
Ort: Hamm(Westf)
1.929 Beiträge
 
Delphi 12 Athens
 
#5

AW: Keine Zulässige Win32-Anwendung seit Delphi11

  Alt 7. Feb 2022, 11:30
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.
Andreas
Monads? Wtf are Monads?
  Mit Zitat antworten Zitat