WindowsVersion/de
From Lazarus wiki
Jump to navigationJump to searchThe printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
│
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;
Alternativ stellt die Unit SysUtils die Versionsinformationen in Variablen bereit:
program EchoWinVersion;
uses sysutils;
begin
Writeln('Win32Platform : ', Win32Platform );
Writeln('Win32MajorVersion: ', Win32MajorVersion);
Writeln('Win32MinorVersion: ', Win32MinorVersion);
Writeln('Win32BuildNumber : ', Win32BuildNumber );
Writeln('Win32CSDVersion : ', Win32CSDVersion );
readln;
end.
Die Ausgabe sieht für Windows 7 Service Pack 1 so aus:
Win32Platform : 2 Win32MajorVersion: 6 Win32MinorVersion: 1 Win32BuildNumber : 7601 Win32CSDVersion : Service Pack 1
