Einzelnen Beitrag anzeigen

Alter Mann

Registriert seit: 15. Nov 2003
Ort: Berlin
934 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

Compilerdirective aus C++ in Delphi, wie?

  Alt 21. Mai 2011, 10:38
Hallo, der Titel sagt schon alles

Wie kann ich diese C++ Direktive in Delphi umsetzen?
Code:
#if (_WIN32_WINNT >= 0x0501)
Ein Versuch:
Delphi-Quellcode:
var
  _WIN32_WINNT : WORD = 0;

implementation

uses
  SysUtils;

procedure InitUnit;
var
  OSVersionInfo: TOSVersionInfo;
begin
  OSVersionInfo.dwOSVersionInfoSize := SizeOf(OSVersionInfo);
  if GetVersionEx(OSVersionInfo) then
   _WIN32_WINNT := OSVersionInfo.dwPlatformId;
end;

initialization
  InitUnit;
scheitert hier
{IF (_WIN32_WINNT >= $0501)} da eine Konstante erwartet wird.

Was nun?
  Mit Zitat antworten Zitat