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;

:gruebel:

[3_of_8]

Nicht grade elegant, aber wirkungsvoll:

Delphi-Quellcode:

try
MakeShadow;
except
end;

[turboPASCAL]

Hm, schon. Das wollte ich ja aber nicht so. ;)

[3_of_8]

Irrelevant. Das ist die effizienteste Möglichkeit.

[JocalAreaNetwork]

Nö, absolut nicht. Wenn es eine Möglichkeit gibt, das über die Versionsnummer festzustellen, ist das um einiges effizienter, als jedes Mal sinnlos zu versuchen einen Schatten zu erstellen.

[Dax]

Deine IsWindowsXPAndUp scheint mir recht vielversprechend zu sein :) Hab leider Windows >= XP zum testen da ;)

@Borgli: Tests mal aus. Deine Lösung ist ziemlich krass... unbrauchbar.

[alcaeus]

Moin,

ich wuerde es so machen:

Delphi-Quellcode:

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

;)

Greetz
alcaeus

PS: Es ist ausserdem eine Delphi-Frage, ich habs mal dorthin geschoben ;)

[edit]Win43...klar :wall:[/edit]

[Luckie]

Zitat:

Zitat von 3_of_8

Irrelevant. Das ist die effizienteste Möglichkeit.

Sag ich mir auch immer wenn ich Auto fahre und keine Lust habe auf die Ampel zu gucken, Gas geben und druff. Wenns kracht wars eben rot. :?

[turboPASCAL]

Zitat:

Zitat von alcaeus

ich wuerde es so machen...

Jupp, danke. Muss ich mal Testen. Wer hat mal Vista ? ;)

Zitat:

Zitat von alcaeus

PS: Es ist ausserdem eine Delphi-Frage, ich habs mal dorthin geschoben ;)

[edit]Win43...klar :wall:[/edit]

Hatte ich doch ? :gruebel: Nicht ? Sorry. werde halt alt Danke.

@Luckie :mrgreen:

// Edit: Danke vergessen. wie gesagt, werde halt alt...

[sh17]

Zitat:

Zitat von turboPASCAL

Wer hat mal Vista ? ;)

ich.

soll ich testen?