OS Version ermitteln

[Luckie]

Habe ich die dpr im Archiv vergessen? Nö, die liegt doch bei.

Gut, dann bleibt noch der Fehler warum der Server 2008 als Vista erkannt wird.

[Bummi]

Vielleicht wg. Serviepack2

http://capitalhead.com/articles/how-...installed.aspx

[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.

[Luckie]

OK, aber das habe ich eigentlich hier berücksichtigt:

Delphi-Quellcode:

if (osvi.dwMajorVersion = 6) then
    begin
      if (osvi.dwMinorVersion = 0) then
      begin
        if (osvi.wProductType = VER_NT_WORKSTATION) then
          Result := 'Windows Vista'
        else
          Result := 'Windows Server 2008';
      end;

Wie im Original auch.

[Bummi]

Du greifst vorher mehrfach auf

si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_AMD64 zu.


EDIT

zumindest in der Letzten Version war si gar nicht mehr initialisiert bis zum GetNativeSystemInfo

[toms]

Funktion aus dem DF:

Delphi-Quellcode:

function GetNativeSystemInfo(var SystemInfo: TSystemInfo): Boolean;
type
  TGetNativeSystemInfo = procedure (var SystemInfo: TSystemInfo) stdcall;
var
  LibraryHandle: HMODULE;
  _GetNativeSystemInfo: TGetNativeSystemInfo;
begin
  Result := False;
  LibraryHandle := GetModuleHandle(kernel32);

  if LibraryHandle <> 0 then
  begin
    _GetNativeSystemInfo := GetProcAddress(LibraryHandle,'GetNativeSystemInfo');
    if Assigned(_GetNativeSystemInfo) then
    begin
      _GetNativeSystemInfo(SystemInfo);
      Result := True;
    end
    else
      GetSystemInfo(SystemInfo);
  end
  else
    GetSystemInfo(SystemInfo);
end;

function IsWindows64: Boolean;
var
  ASystemInfo: TSystemInfo;
const
  PROCESSOR_ARCHITECTURE_INTEL = 0;
  PROCESSOR_ARCHITECTURE_IA64 = 6;
  PROCESSOR_ARCHITECTURE_AMD64 = 9;
begin
  GetNativeSystemInfo(ASystemInfo);
  Result := ASystemInfo.wProcessorArchitecture in [PROCESSOR_ARCHITECTURE_IA64,PROCESSOR_ARCHITECTURE_AMD64];
end;

[Luckie]

Zitat von Bummi:

zumindest in der Letzten Version war si gar nicht mehr initialisiert bis zum GetNativeSystemInfo

Das ist jetzt behoben und steht am Anfang.

@toms: Das mit dem 32/64-Bit scheint jetzt gelöst zu sein. Ich habe nur noch das Vista/Srever 2008 Problem.

[Luckie]

So, hier ist die aktuelle Version.