Difference between revisions of "WindowsVersion/de"
From Lazarus wiki
Jump to navigationJump to searchm |
m |
||
Line 18: | Line 18: | ||
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.2 => Windows 8 oder Windows Server 2012 |
− | 6.3 => Windows | + | 6.3 => Windows 8.1 oder Windows Server 2012 RS |
} | } | ||
Revision as of 19:35, 10 February 2014
│
Deutsch (de) │
English (en) │
русский (ru) │
Zurück zur Seite Code Beispiele.
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 8 oder Windows Server 2012
6.3 => Windows 8.1 oder Windows Server 2012 RS
}
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)