Schnell u. einfach rausfinden ob Win9x oder Win NT / 2k / XP

[flomei]

Das ist schön kurz... :) Werd ich mir nachher mal angucken, muss jetzt erstmal weg...

DANKE!

MfG Florian :hi:

[scp]

Ist GetVersion nicht obsolete?

Zitat:

Zitat von PSDK

This function has been superseded by GetVersionEx, which is the preferred method for obtaining system version number information. New applications should use GetVersionEx.

[Alexander]

Und noch eine Alternative: Win32Platform aus der SysUtils...

[vlees91]

so gehts glaube ich auch(keine garantie):

Code:

uses SysUtils;

function GetWinVersion: string;
begin
  result:='Unbekannte Version';
  case Win32Platform of
    1: begin // 9x-Reihe
         if Win32MajorVersion=4 then begin
           if Win32MinorVersion=0 then result:='Windows 95'
           else if Win32MinorVersion=10 then result:='Windows 98'
           else if Win32MinorVersion=90 then result:='Windows Me';
         end;
       end;
    2: begin // NT-Reihe
         if (Win32MajorVersion=3) and (Win32MinorVersion=51) then result:='Windows NT 3.51'
         else if (Win32MajorVersion=4) and (Win32MinorVersion=0) then result:='Windows NT 4'
         else if Win32MajorVersion=5 then begin
           if Win32MinorVersion=0 then result:='Windows 2000'
           else if Win32MinorVersion=1 then result:='Windows XP'
           else if Win32MinorVersion=2 then result:='Windows .NET Server';
         end;
       end;
  end;
  //Win32CSDVersion enthält Informationen zu Servicepacks
  if Win32CSDVersion<>'' then result:=result+' '+Win32CSDVersion;
end;

edit:du kannst die fuktion noch nach boolean umändern und bei den ersten drei results false ausgeben, und bei den anderen true.

[CalganX]

Hi,
dann hast du aber die Version als String. Meiner Meinung nach doof. Außerdem sind die bisherigen Lösungen wesentlich kürzer. ;) Und Florian kam es ja auf eine kurze Lösung an. *g*

Chris

[Muetze1]

Moin!

Dann ganz kurz mit SysUtils, da die Delphi Progs das beim Start eh ermitteln:

Delphi-Quellcode:

Function IsNT : Boolean;
Begin
  Result := ( Win32Platform = 2 );
End;

MfG
Muetze1