Difference between revisions of "WindowsVersion/de"
From Lazarus wiki
Jump to navigationJump to search (Created page with "{{WindowsVersion}}<br> <br> Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.<br> Die Funktion ermittelt die Nummer der aktuellen Windowsversion.<br> <syntaxhigh...") |
(Deleted categories which are already in template) |
||
(9 intermediate revisions by 4 users not shown) | |||
Line 1: | Line 1: | ||
− | {{WindowsVersion}}<br> | + | {{WindowsVersion}} |
+ | <br> | ||
+ | Zurück zur Seite [[code examples/de|Code Beispiele]].<br> | ||
<br> | <br> | ||
Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.<br> | Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.<br> | ||
Die Funktion ermittelt die Nummer der aktuellen Windowsversion.<br> | Die Funktion ermittelt die Nummer der aktuellen Windowsversion.<br> | ||
− | <syntaxhighlight> | + | |
+ | <syntaxhighlight lang="pascal"> | ||
uses | uses | ||
Windows, SysUtils, ...; | Windows, SysUtils, ...; | ||
Line 16: | Line 19: | ||
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 8 oder Windows Server 2012 | ||
+ | 6.3 => Windows 8.1 oder Windows Server 2012 RS | ||
} | } | ||
Line 25: | Line 30: | ||
Result := Result + IntToStr(HIBYTE(LOWORD(GetVersion))); | Result := Result + IntToStr(HIBYTE(LOWORD(GetVersion))); | ||
end; | end; | ||
+ | </syntaxhighlight> | ||
− | + | Alternativ stellt die Unit [[SysUtils]] die Versionsinformationen in Variablen bereit: | |
− | < | + | <syntaxhighlight lang="pascal"> |
− | < | + | program EchoWinVersion; |
− | < | + | uses sysutils; |
− | + | begin | |
− | + | Writeln('Win32Platform : ', Win32Platform ); | |
+ | Writeln('Win32MajorVersion: ', Win32MajorVersion); | ||
+ | Writeln('Win32MinorVersion: ', Win32MinorVersion); | ||
+ | Writeln('Win32BuildNumber : ', Win32BuildNumber ); | ||
+ | Writeln('Win32CSDVersion : ', Win32CSDVersion ); | ||
+ | readln; | ||
+ | end.</syntaxhighlight> | ||
+ | |||
+ | Die Ausgabe sieht für Windows 7 Service Pack 1 so aus: | ||
+ | |||
+ | <pre> | ||
+ | Win32Platform : 2 | ||
+ | Win32MajorVersion: 6 | ||
+ | Win32MinorVersion: 1 | ||
+ | Win32BuildNumber : 7601 | ||
+ | Win32CSDVersion : Service Pack 1 | ||
+ | </pre> |
Latest revision as of 17:11, 10 December 2020
│
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