Difference between revisions of "WindowsVersion/de"
From Lazarus wiki
Jump to navigationJump to searchm |
(Deleted categories which are already in template) |
||
| (5 intermediate revisions by 3 users not shown) | |||
| Line 5: | Line 5: | ||
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 29: | 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
