Wie kann ich erkennen ob das OS >= Win XP ist.

[turboPASCAL]

Hi,

Also ich habe mir auf die schnelle eine kleine Funktion geschrieben:

Delphi-Quellcode:

function IsWindowsXP: Boolean;
begin
  Result := (Win32MajorVersion = 5) and ( Win32MinorVersion = 1);
end;

damit lässt sich erkennen ob das OS Windows XP ist. Nun weis ich nicht ob und wie sich das auf höhere Versionen auswirkt.

Ich habe mit:

Delphi-Quellcode:

procedure TForm1.CreateParams(var Params: TCreateParams);
const
  CS_DROPSHADOW = $00020000;
begin
  inherited;
  Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;
end;

einer Form einen Schatten verpasst, Win 2000 kommt damit nicht zurecht. Wie sieht das nun mit
Microsoft Windows Server 2003 aus? Kann die Schatten erzeugen und was ist mit Vista (wird es wohl können)?

(siehe dazu: Windows Version ermitteln )

Delphi-Quellcode:

function IsWindowsXPAndUp: Boolean;
begin
  Result := (Win32MajorVersion >= 5) and ( Win32MinorVersion >= 1);
end;