Delphi auslesen der windowsversion

Thema durchsuchen

Ansicht

Themen-Optionen

auslesen der windowsversion

Ein Thema von glkgereon · begonnen am 20. Mär 2004 · letzter Beitrag vom 23. Aug 2004

Antwort

Markus K.

Registriert seit: 26. Jan 2004
Ort: Halle
346 Beiträge

Delphi 2005 Personal

Re: auslesen der windowsversion

20. Mär 2004, 21:54

Hallo glkbkk,
so kannst du prüfen ob das BS Windows XP ist.

markieren

Delphi-Quellcode:

			var Version:TOSVersionInfo;

begin

     Version.dwOSVersionInfoSize:=SizeOf(OSVersionInfo);

     GetVersionEx(Version);

     if Version.dwPlatformId=VER_PLATFORM_WIN32_NT

     then if ((Version.dwMajorVersion=5)and(Version.dwMinorVersion>=1))

          then ShowMessage('Windows XP');

Tschüß Markus