Ich hatte kürzlich das gleiche Problem.
Einfach den Code von
www.swissdelphicenter.ch/de/showcode.php?id=316 etwas modifizieren:
Delphi-Quellcode:
{operating system (OS)constants }
const
cOsUnknown = -1;
cOsWin95 = 0;
cOsWin98 = 1;
cOsWin98SE = 2;
cOsWinME = 3;
cOsWinNT = 4;
cOsWin2000 = 5;
cOsXP = 6;
cOsVista = 7;
In der Funktion GetOperatingSystem den Codeabschnitt bei VER_PLATFORM_WIN32_NT: erweitern:
Delphi-Quellcode:
VER_PLATFORM_WIN32_NT: { Windows NT/2000 }
begin
if majorVer <= 4 then
Result := cOsWinNT
else if (majorVer = 5) and (minorVer = 0) then
Result := cOsWin2000
else if (majorVer = 5) and (minorVer = 1) then
Result := cOsXP
else if (majorVer = 6) then
Result := cOsVista
else
Result := cOsUnknown;
end;
Abhängig vom Betriebssystem wird dann von der Funktion eine Zahl geliefert, die man beliebig weiter auswerten kann. Für Windows 95-Me den Code so lassen.
Die abzufragenden Werte für majorVer und minorVer kann man der
msdn entnehmen:
msdn2.microsoft.com/en-us/library/ms724834.aspx