Entwickler-Ecke
Windows API - Hilfe bei ner Funktion Nutzung
AlexII - So 15.02.09 12:21
Titel: Hilfe bei ner Funktion Nutzung
Hallo,
ich hab folgende Funktion und bringe sie nicht zum laufen...
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| function IsXP: Boolean;
var
OS: TOSVERSIONINFO;
begin
OS.dwOSVersionInfoSize := SizeOf(TOSVERSIONINFO);
GetVersionEx(OS);
Result := (OS.dwPlatformId = VER_PLATFORM_WIN32_NT) and
(OS.dwMajorVersion = 5) and (OS.dwMinorVersion = 1);
end; |
Wie frage ich jetzt ab ob es sich um XP handelt oder nicht?
PS. Verzeihung bin noch nicht stark in Delphi.
Moderiert von 
Narses: Topic aus VCL (Visual Component Library) verschoben am So 15.02.2009 um 11:22
ImbaPanda - So 15.02.09 12:42
Delphi-Quelltext
1:
2:
| If IsXP
Then ShowMessage('Es ist das Betriebssystem Windows XP installiert'); |
Deine Funktion liefert dir als Rückgabewert eine Variable vom Typ Boolean, d.h. sie kann entweder den Wert "True"(wahr) oder "False"(falsch) annehmen. Ein True bedeutet in diesem Fall, dass XP vorhanden ist.
MfG
AlexII - So 15.02.09 12:55
Danke dir!
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!