Delphi-Quellcode:
TOSVersion = (osUnknown, os95, os95OSR2, os98, os98SE, osNT3, osNT4, os2K, osME, osXP,osVista,osWindows7);
function GetOS:TOSVersion;
var
OS :TOSVersionInfo;
begin
ZeroMemory(@
OS,SizeOf(
OS));
OS.dwOSVersionInfoSize:=SizeOf(
OS);
GetVersionEx(
OS);
Result:=osUnknown;
if OS.dwPlatformId=VER_PLATFORM_WIN32_NT
then begin
case OS.dwMajorVersion
of
3: Result:=osNT3;
4: Result:=osNT4;
5: Result:=os2K;
end;
if (
OS.dwMajorVersion=6)
then
case OS.dwMinorVersion
of
0: Result:=osVista;
1: Result:=osWindows7;
end;
if (
OS.dwMajorVersion=5)
and (
OS.dwMinorVersion=1)
then
Result:=osXP;
end else begin
if (
OS.dwMajorVersion=4)
and (
OS.dwMinorVersion=0)
then begin
Result:=os95;
if (Trim(
OS.szCSDVersion)='
B')
then
Result:=os95OSR2;
end else
if (
OS.dwMajorVersion=4)
and (
OS.dwMinorVersion=10)
then begin
Result:=os98;
if (Trim(
OS.szCSDVersion)='
A')
then
Result:=os98SE;
end else
if (
OS.dwMajorVersion=4)
and (
OS.dwMinorVersion=90)
then
Result:=osME;
end;
end;
Werd das mal testen. Danke
Obwohl wie ich schon sagte in D2006 und D200 als Kompilierte Exe funktioniert meine Version
Halt nur nicht in der
IDE von 2009
EDIT
Zitat:
Startest Du D2009 im Kompatibilitätsmodus (als XP)?
Hab nochmal nachgeschaut .. Das war's Danke
gruss