OS Version ermitteln

[Nersgatt]

Windows 7 32 Bit Prof: Passt
Windows XP Home SP3: Passt

[Bummi]

Code:

  TOSVersionInfoEx = packed record
    dwOSVersionInfoSize: DWORD;
    dwMajorVersion: DWORD;
    dwMinorVersion: DWORD;
    dwBuildNumber: DWORD;
    dwPlatformId: DWORD;
    [COLOR="SandyBrown"]szCSDVersion: array[0..127] of WideChar;[/COLOR]
    wServicePackMajor: Word;
    wServicePackMinor: Word;
    wSuiteMask: Word;
    wProductType: Byte;
    wReserved: Byte;
  end;

so läuft es bei mir

[Luckie]

@Nersgatt: Dann sind die Fehler bei dir jetzt weg?

@Bummi: Das WideChar reicht aus, um es Unicode fähig zu machen?

[Bummi]

Ich weiß nicht was auf einem Chinesischen System passiert unter Delphi XE und o.g. System läuft es so.

[Luckie]

Schön, dann sind ja keine großen Änderungen erforderlich.

[Bummi]

Sorry ich war zu schnell

[Window Title]
Project2

[Content]
Windows Server 2008 R2 Enterprise Edition Build: 7600 32-bit

[OK]

ist aber definitiv 64 -Bit

[Nersgatt]

Zitat von Luckie:

@Nersgatt: Dann sind die Fehler bei dir jetzt weg?

Ja.

[Luckie]

OK, aber warum bekomme ich unter Sever 2008 Vista angezeigt, wenn ich es unter Windows 7 im Kompatibilitätsmodus starte?

[Luckie]

Zitat von Bummi:

ist aber definitiv 64 -Bit

Wenn du zeit hast, könntest du das mal bitte debuggen?

[Bummi]

die Stelle ist klar

Delphi-Quellcode:

  if (osvi.dwMajorVersion >= 6) then
  begin
    if (si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_AMD64) then
      Result := Result + ' 64-bit'
    else if (si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_INTEL) then
      Result := Result + ' 32-bit';
  end;

hier wird si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_INTEL = 0 geliefert

ist die Frage ob da auch so ein SYSWOW64 zuschlägt.


EDIT:

Nein Wow64DisableWow64FsRedirection bringt nichts