[Delphi] Windows versie bepalen

[Spinal]

Het schijnt te kunnen met een of andere API functie maar daar kan ik niks mee...
Weet iemand hoe je de windows versie kunt bepalen in Delphi 5?

[the_dgc]

Op maandag 13 mei 2002 20:37 schreef ZanderZ het volgende:
Het schijnt te kunnen met een of andere API functie maar daar kan ik niks mee...
Weet iemand hoe je de windows versie kunt bepalen in Delphi 5?

ik zou het niet weten. maar misschien kun je het vinden op http://www.experts-exchange.com/ dit is ook een soort forum maar met veel meer hulp over programeertalen e.d.
ook daar moet je je eigen aanmelden ook gelden daar wat meer voorwaarden maar die moet je maar op de site lezen

[jvreuls]

Zo misschien?

code:

var OSVersion : OSVERSIONINFO;
begin
    OSVersion.dwOSVersionInfoSize := SizeOf(OSVersion);
    GetVersionEx(OSVersion);
    Label1.Caption := IntToStr(OSVersion.dwMajorVersion)
      + '.' + IntToStr(OSVersion.dwMinorVersion);
end;

In die OSVersion structure zit nog meer, maar dat staat allemaal in de Win32 API guide.
Btw: bedoel je nu dat je de API niet kan of wil gebruiken? Vanuit Delphi kan het volgens mij niet.

[Verwijderd]

Voor dit soort zaken, zou ik altijd ff in de JCL van Jedi kijken. Deze heeft een functie GetWindowsVersion, die denk ik doet wat jij wil.

[WOmBaT]

Op www.delphi3000.com staan in ieder geval 2 voorbeelden van functies die precies kunnen zeggen welke windowsversie je draait. Wel ff registeren voor een (gratis) brons lidmaatschap.

[Creepy]

Op maandag 13 mei 2002 21:38 schreef jvreuls het volgende:
Btw: bedoel je nu dat je de API niet kan of wil gebruiken? Vanuit Delphi kan het volgens mij niet.

Windows API calls vanuit Delphi gaan prima hoor. Uses windows en desnoods ook nog shellapi en de meeste API calls heb je tot je beschikking.

Mocht je een API call willen gebruiken en die functie is om 1 of andere reden niet aan te spreken vanuit Delphi, declareer hem dan zelf (function blaat(paramshier): pchar; stdcall; external 'win32.nll') of kijk op de al eerder genoemde Delphi Jedi site, waar ze voor zo'n beetje elke API wel een delphi wrapper hebben..

[jvreuls]

Nou, dat bedoelde ik niet. Ik dacht soms dat Delphi een ingebouwde functie voor de windowsversie had. Dat API calls vanuit Delphi perfect werken weet ik.

[Kool]

In Delphi 6 kun je Win32MajorVersion enz. gebruiken. Weet niet of het ook al in D5 zit.

[Elissen]

Het beste kan je het opvragen met GetVersionEx, je kunt dan zelfs het verschil zien tussen een 2000 Prof, Server, Adv. Server enz.

zie ook:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/sysinfo_49iw.asp
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/sysinfo_92jy.asp

(Ik heb dat voorbeeld in Delphi, maar niet bij de hand. Ben nu op school).

[Tomatoman]

code:

function WinVersion: string;
begin
  case Win32MajorVersion of
    3: // NT 3.51
    Result := 'Windows NT 3.51';
    4: // Win9x/ME, NT 4
    case Win32MinorVersion of
      0:
        Result := 'Windows 95';
      10:
        Result := 'Windows 98';
      90:
        Result := 'Windows ME';
    else
      if (Win32Platform and VER_PLATFORM_WIN32_NT) <> 0 then
        Result := 'Windows NT 4.0'
      else
        Result := 'unknown';
    end;
    5: // Win2K, XP
    case Win32MinorVersion of
      0:
        Result := 'Windows 2000';
      1:
        Result := 'Windows XP or .NET server';
    else
      Result := 'unknown';
    end;
  else
    Result := 'unknown';
  end;
end;

[Elissen]

Komt 'ie, volledig vertaald voorbeeld van MS. Werkt bij mij tot nu toe bij elke windows (vanaf '95 en NT4. zou ook onder NT 3.51 moeten werken).

Er staan wel een paar extra dingen in, maar als dingen niet in Delphi staan en ik moet de uit de header-files van de Platform SDK halen, dan neem ik die gelijk mee.

code:

uses
  Windows, Registry, SysUtils;

const
  VER_PLATFORM_WIN32s     = 0;
  VER_PLATFORM_WIN32_WINDOWS = 1;
  VER_PLATFORM_WIN32_NT = 2;

  VER_NT_WORKSTATION       = 1;
  VER_NT_DOMAIN_CONTROLLER   = 2;
  VER_NT_SERVER       = 3;

  VER_SERVER_NT            = $80000000;
  VER_WORKSTATION_NT            =  $40000000;
  VER_SUITE_SMALLBUSINESS        =  $00000001;
  VER_SUITE_ENTERPRISE        =  $00000002;
  VER_SUITE_BACKOFFICE        =  $00000004;
  VER_SUITE_COMMUNICATIONS      =  $00000008;
  VER_SUITE_TERMINAL            =  $00000010;
  VER_SUITE_SMALLBUSINESS_RESTRICTED=  $00000020;
  VER_SUITE_EMBEDDEDNT        =  $00000040;
  VER_SUITE_DATACENTER        =  $00000080;
  VER_SUITE_SINGLEUSERTS        =  $00000100;
  VER_SUITE_PERSONAL            =  $00000200;
  VER_SUITE_BLADE            =  $00000400;

type
  POSVersionInfoExA = ^TOSVersionInfoExA;
  POSVersionInfoExW = ^TOSVersionInfoExW;
  POSVersionInfoEx = POSVersionInfoExA;
  _OSVERSIONINFOEXA = record
    dwOSVersionInfoSize : DWORD;
    dwMajorVersion : DWORD;
    dwMinorVersion : DWORD;
    dwBuildNumber : DWORD;
    dwPlatformId : DWORD;
    szCSDVersion : array [0..127] of AnsiChar;
    wServicePackMajor : Word;
    wServicePackMinor : Word;
    wSuiteMask : Word;
    wProductType : Byte;
    wReserved : Byte;
  end;
  _OSVERSIONINFOEXW = record
    dwOSVersionInfoSize : DWORD;
    dwMajorVersion : DWORD;
    dwMinorVersion : DWORD;
    dwBuildNumber : DWORD;
    dwPlatformId : DWORD;
    szCSDVersion : array [0..127] of WideChar;
    wServicePackMajor : Word;
    wServicePackMinor : Word;
    wSuiteMask : Word;
    wProductType : Byte;
    wReserved : Byte;
  end;
  OSVERSIONINFOEX = _OSVERSIONINFOEXA;
  LPOSVERSIONINFOEX = ^_OSVERSIONINFOEXA;
  TOSVersionInfoEx = _OSVERSIONINFOEXA;
  TOSVersionInfoExA = _OSVERSIONINFOEXA;
  TOSVersionInfoExW = _OSVERSIONINFOEXW;

function GetVersion_(lpVersionInformation: pointer): BOOL; stdcall; external kernel32 name 'GetVersionA';
function GetVersionA_(lpVersionInformation: pointer): BOOL; stdcall; external kernel32 name 'GetVersionA';
function GetVersionW_(lpVersionInformation: pointer): BOOL; stdcall; external kernel32 name 'GetVersionW';
function GetVersionEx_(lpVersionInformation: pointer): BOOL; stdcall; external kernel32 name 'GetVersionExA';
function GetVersionExA_(lpVersionInformation: pointer): BOOL; stdcall; external kernel32 name 'GetVersionExA';
function GetVersionExW_(lpVersionInformation: pointer): BOOL; stdcall; external kernel32 name 'GetVersionExW';

function GetWindowsVersion : string;
var
  OSVI : TOSVersionInfoEx;
  bOsVersionInfoEx : Boolean;
  sName, sTemp : string;
  reg : TRegistry;
begin
  sName := '';
  // Try calling GetVersionEx using the OSVERSIONINFOEX structure.
  // If that fails, try using the OSVERSIONINFO structure.

  FillChar(OSVI, sizeof(OSVI), 0);
  osvi.dwOSVersionInfoSize := sizeof(OSVERSIONINFOEX);

  bOsVersionInfoEx := ord(GetVersionEx_(@OSVI)) <> 0;
  if not bOsVersionInfoEx then begin
    // If OSVERSIONINFOEX doesn't work, try OSVERSIONINFO.
    osvi.dwOSVersionInfoSize := sizeof (OSVERSIONINFO);
    if ord(GetVersionEx_(@OSVI)) = 0 then
    raise Exception.Create('Fout bij ophalen GetVersionEx');
  end;

  case OSVI.dwPlatformId of
    // Tests for Windows NT product family.
    VER_PLATFORM_WIN32_NT:
    begin
    // Test for the product.
      if osvi.dwMajorVersion <= 4 then
        sName := sName + 'Microsoft Windows NT ';
      if (osvi.dwMajorVersion = 5) and (osvi.dwMinorVersion = 0) then
        sName := sName + 'Microsoft Windows 2000 ';

      if bOsVersionInfoEx then begin  // Use information from GetVersionEx.
      // Test for the workstation type.
        if osvi.wProductType = VER_NT_WORKSTATION then begin
        if (osvi.dwMajorVersion = 5) and (osvi.dwMinorVersion = 1) then begin
          if (osvi.wSuiteMask and VER_SUITE_PERSONAL) = VER_SUITE_PERSONAL then
            sName := sName + 'Microsoft Windows XP Home Edition '
          else
            sName := sName + 'Microsoft Windows XP Professional ';
        end
       // Test for the server type.
        else
        if osvi.wProductType = VER_NT_SERVER then begin
        if (osvi.dwMajorVersion = 5) and (osvi.dwMinorVersion = 1) then
          sName := sName + 'Microsoft Windows .NET ';
        if (osvi.wSuiteMask and VER_SUITE_DATACENTER) = VER_SUITE_DATACENTER then
          sName := sName + 'DataCenter Server '
        else
        if (osvi.wSuiteMask and VER_SUITE_ENTERPRISE) = VER_SUITE_ENTERPRISE then begin
          if osvi.dwMajorVersion = 4 then
            Result := sName + 'Advanced Server '
          else
            Result := sName + 'Enterprise Server ';
        end else
        if (osvi.wSuiteMask and VER_SUITE_BLADE) = VER_SUITE_BLADE then
          Result := sName + 'Web Server '
        else
          Result := sName + 'Server ';
        end;
      end
      else   // Use the registry on early versions of Windows NT.
      begin
        reg := TRegistry.Create(KEY_READ);
        reg.RootKey := HKEY_LOCAL_MACHINE;
        if reg.OpenKeyReadOnly('SYSTEM\CurrentControlSet\Control\ProductOptions') then begin
        sTemp := reg.ReadString('ProductType');
        sTemp := UpperCase(Trim(sTemp));
        if sTemp = 'WINNT' then
          sName := sName + 'Professional '
        else if sTemp = 'LANMANNT' then
          sName := sName + 'Server '
        else if sTemp = 'SERVERNT' then
          sName := sName + 'Advanced Server ';
        end;
        reg.Free;
      end;
    // Display version, service pack (if any), and build number.
      if osvi.dwMajorVersion <= 4 then
        sName := sName + Format('version %d.%d %s (Build %d)',[osvi.dwMajorVersion,
          osvi.dwMinorVersion, osvi.szCSDVersion, osvi.dwBuildNumber and $FFFF])
      else
        sName := sName + Format('%s (Build %d)', [osvi.szCSDVersion, osvi.dwBuildNumber and $FFFF]);
    end;
    end;
    // Test for the Windows 95 product family.
    VER_PLATFORM_WIN32_WINDOWS:
    begin
    if osvi.dwMajorVersion = 4 then begin
      if osvi.dwMinorVersion = 0 then begin
        sName := sName + 'Microsoft Windows 95 ';
        if (osvi.szCSDVersion[1] = 'C') or (osvi.szCSDVersion[1] = 'B') then
        sName := sName + 'OSR2 ';
      end;
      if osvi.dwMinorVersion = 10 then begin
        sName := sName + 'Microsoft Windows 98 ';
        if osvi.szCSDVersion[1] = 'A' then
        sName := sName + 'SE ';
      end;
      if osvi.dwMinorVersion = 90 then
        sName := sName + 'Microsoft Windows Millennium Edition ';
    end;
    end;
  end;
  Result := sName;
end;

Sorry voor de layout

[Spinal]

Hartstikke bedankt! Ik ga het straks proberen!