OS Version ermitteln

[Der Jan]

Nicht OK:
Windows XP Professional SP3 32-bit --> angezeigt als: Windows XP Home Edition Service Pack 3 Build: 2600
Windows Server 2003 Standard Edition SP2 --> angezeigt als: Storage Server 2003 Compute Cluster Edition Service Pack2, Build: 3790

OK:
Windows Vista (Wine unter Debian Lenny, Vista Mode) --> Angezeigt als: Windows Vista Service Pack 2, Build 6002 32-bit
Windows 2000 (Wine unter Debian Lenny, Win2k Mode) --> Angezeigt als: Windows 2000 Profesional Service Pack 4, Build: 2195

[Luckie]

Wie gesagt, das hilft mir im Moment nicht all zu viel. Deswegen habe ich euch ja gebeten mal im Quellcode zu gucken, wo es schief läuft.

[v2afrank]

Mein 64 Bit Win 7 wird auch als 32 Bit erkannt. Ich bin das ganze mal im Debugger durchgegangen.
Der Fehler passiert hier

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;

si.wProcessorArchitecture ist bei mir 0, was PROCESSOR_ARCHITECTURE_INTEL entspricht. Ich habe allerdings auch eine Intel CPU

[Luckie]

Hm, da muss ich mal gucken, ob ich da was falsch abgeschrieben habe.

[Luckie]

Noch mal zu dem C Code:

Code:

if Wert1 & Wert dann

Wie übersetzt man das in Delphi? Eventuell habe ich das falsch Übersetzt.

[p80286]

ich denke so ists dann richtig:
if (osvi.wSuiteMask and VER_SUITE_PERSONAL = VER_SUITE_PERSONAL) then Home ist $0200 und Prof ist $0100

Gruß
K-H

[Luckie]

OK. Korrigiert. Bitte noch mal testen. Eventuell behebt das schon einige Fehler.

[Jens Hartmann]

Hallo Michael,

Windows 7 Professional 64-Bit geht immer noch nicht. Da kommt immer noch die Meldung 32-Bit.

Gruß Jens

[Bummi]

Server 2008R2 Enterprise

[Window Title]
Project2

[Content]
Der an einen Systemaufruf übergebene Datenbereich ist zu klein

[OK]

[DeddyH]

Zitat:

---------------------------
Project1
---------------------------
Windows Vista rocessExefileBusiness Edition Service Pack 2 Build: 6002 32-bit
---------------------------
OK
---------------------------

Stimmt hier (von dem blödsinnigen String mal abgesehen).