Difference between revisions of "WindowsVersion/de"

From Free Pascal wiki
Jump to navigationJump to search
m
m (Windows Versionen 6.2 und 6.3 hinzugefügt)
Line 16: Line 16:
 
6.0 => Windows Vista oder Windows 2008 Server
 
6.0 => Windows Vista oder Windows 2008 Server
 
6.1 => Windows 7 oder Windows 2008 Server R2
 
6.1 => Windows 7 oder Windows 2008 Server R2
 +
6.2 => Windows Server 2012
 +
6.3 => Windows RT, Windows 8
 
}
 
}
  

Revision as of 21:02, 1 January 2014

Deutsch (de) English (en) русский (ru)


Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.
Die Funktion ermittelt die Nummer der aktuellen Windowsversion.

uses
  Windows, SysUtils, ...;

  ...

{
Beispiele für Windows-Versionsnummern:
5.0 => Windows 2000
5.1 => Windows XP
5.2 => Windows XP64 oder Windows 2003 Server
6.0 => Windows Vista oder Windows 2008 Server
6.1 => Windows 7 oder Windows 2008 Server R2
6.2 => Windows Server 2012
6.3 => Windows RT, Windows 8
}

function funGetWinVer: string;
// Liefert die Versionsnummer von Windows als String
begin
  Result := IntToStr(LOBYTE(LOWORD(GetVersion)));
  Result := Result + '.';
  Result := Result + IntToStr(HIBYTE(LOWORD(GetVersion)));
end;

...



--Olaf 05:04, 3 May 2013 (UTC)