Windows NT/2000/XP oder Windows 9x/Me |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
Folgende Funktion prüft, ob es sich bei einem Windows-System um ein System aus der NT-Reihe, wie z.B. NT, 2000 und XP handelt oder ob es aus der 9x/Me-Reihe entstammt:
function IsWindowsNT: Boolean;
begin
Result:=Win32Platform = VER_PLATFORM_WIN32_NT;
end;
Aufgerufen werden kann die Funktion beispielsweise so:
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsWindowsNT then
Showmessage('Es handelt sich um ein NT-System');
end;
Setzen Sie diesen Quellcode nur in Windows-Systemen ein, da nur dort diese Unterscheidung relevant ist.
Ähnliche Seiten: