OS Version ermitteln

[Neutral General]

Hallo.

Prinzipiell stimmts bei mir:

---------------------------
Project1
---------------------------
Windows Vista rocessExefileBusiness Edition Service Pack 1 Build: 6001 32-bit
---------------------------
OK
---------------------------

Aber da hat sich glaube ich irgendwas dazwischen geschummelt, was da nicht hingehört

[divBy0]

Mein Windows 7 Ultimate 64 wird als:

---------------------------
Project1
---------------------------
Windows 7 Ultimate Edition Build: 7600 32-bit
---------------------------
OK
---------------------------


erkannt.

[mirage228]

Windows 7 Professional 32-bit: Passt (Meldung als: Windows 7 Professional Build: 7600 32-bit)
Windows XP Professional SP3 32-bit (VM, "Windows XP-Mode"): Passt NICHT (Meldung als: Windows XP Home Edition Service Pack 3 Build: 2600)

[Luckie]

Im Quellcode habe ich ja die Quelle aus dem MSDN angegeben, wo ich den C Code übersetzt habe. Eventuell habe ich da einen Fehler gemacht.

C:

Code:

if Wert1 & Wert dann

Wurde bei mir zu
if Wert1 AND WERT2 = 0 dann Das könnte eventuell nicht stimmen.

Und die 32/64-BIT Erkennung scheint nicht zu funktionieren.

Da ich nicht alle Versionen testen kann. Würde ich euch bitte doch mal den Code zu debuggen (sollte nicht sehr schwer sein, da es nur Verzweigungen sind) und zu gucken, wo er in den falschen Zweig springt und mir dass dann mitzuteilen.

Warum ich das noch mal mache ist, dass ich die vorgeschlagene Methode zur Bestimmung des Betriebssystems umsetzen wollte. Deswegen auch die 32/64-Bit Erkennung auf diese Weise.

Und Unicode ist es noch nicht, weil ich es hier auf dem Sofa hinter der Front auf dem Netbook mit meinem alten D7 entwickele. Kann man es so ändern, dass es sowohl unter D/ als Ansi compiliert, als auch unter D2010 als Unicode? Welche Datentypen müsste ich da nehmen. String sollte ja als Ansi und Unicode kompilieren.

[Neutral General]

Zitat von Luckie:

C:

Code:

if Wert1 & Wert dann

Wurde bei mir zu
if Wert1 AND WERT2 = 0 dann Das könnte eventuell nicht stimmen.

Das stimmt tatsächlich nicht.

Code:

if (Wert1 & Wert2)

müsste

if (Wert1 and Wert2) <> 0 then

sein. Oder auch

if Boolean(Wert1 and Wert2) then

[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

[himitsu]

Zitat von Luckie:

Noch mal zu dem C Code:

Code:

if Wert1 & Wert dann

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

Alles was am Ende übrig bleibt, das bewertet C als Boolean.

False = 0
True <> 0

also if TheVar and TheConstOderSonstwas <> 0 then .

Zitat von p80286:

if (osvi.wSuiteMask and VER_SUITE_PERSONAL = VER_SUITE_PERSONAL) then

das ist ja fast genauso gut, wie if TheBool = true then , außerdem ist es länger und, wie ich finde, unübersichtlicher, als if osvi.wSuiteMask and VER_SUITE_PERSONAL <> 0 then Dieses Konstengenvergleiche ist nur wichtig, wenn es um Vergleiche mehrer Bits geht.

also z.B.

Delphi-Quellcode:

const Value0 = $00;
  Value1 = $01;
  Value2 = $02;
  Value3 = $03;
  ValueMask = $0F;
if TheVar and ValueMask = Value2 then

[Jens Hartmann]

Hallo Michael,

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

Gruß Jens

[DeddyH]

Zitat:

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

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