OS Version ermitteln

[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

[Luckie]

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

[Bummi]

Server 2008R2 Enterprise

[Window Title]
Project2

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

[OK]

[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

[p80286]

Einspruch Euer Ehren,
Damit wollte ich zum Ausdruck bringen, das dieses Bit gesetzt sein muß (wobei man im ersten Moment natürlich nicht weiß, daß sich hinter VER_SUITE_PERSONAL nur ein Bit versteckt)
Und wenn man von der Länge des Konstantennamens absieht halte ich das für sauberer als das beliebige <>0, weil das Bitmuster das gleiche sein muß!

Gruß
K-H

[Bummi]

@Luckie

nimm das

GetNativeSystemInfo(si);

an den Anfang hoch sonst wird XP64 Bit als Server2003 deklariert.