Vista ersteckt sich hinter XP (GetVersionEx ergibt XP)

Uwe.F. · Beiträge: 52 W7 D7 Ent. w/o NET

Hallo liebe Vista-Leidensgenossen,

ich habe auf meinem Rechner eine W98-Partition, eine XP- und eine Vista-Partition.
Unter Vista in der IDE gestartet, liefert diese Routine die Versionsdaten der XP-Partition nebst Build und SP-Installation (also 5.1, Build 2600 SP2) :cry:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

function IsVista : boolean;
var OSVinfo : TOSVERSIONINFO;
begin
  ZeroMemory(@OSVinfo,sizeOf(OsVinfo));
  OSVinfo.dwOSVersionInfoSize := sizeof(TOSVERSIONINFO);
  GetVersionEx(OSVinfo);
  if (OSVinfo.dwMajorVersion = 6) then IsVista:=true else IsVista:=false;
end;

Wie zum Teufel passiert denn so etwas? Unter Vista gibt es eine eigene D7-Installation ...
Hat irgend einer eine Idee?

Beste Grüße,
Uwe

Moderiert von Tino: Code- durch Delphi-Tags ersetzt.

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Hallo!

Das kann dann passieren wenn deine Anwendung im Kompatibilitätsmodus läuft. Schau mal die Eigenschaften deiner EXE unter der Registerkarte "Kompatibilität" an. Dort muss die entsprechende Checkbox deaktiviert sein.

Gruß
Tino

Uwe.F. · Beiträge: 52 W7 D7 Ent. w/o NET

Das ist eine gute Idee - teste ich heute abend.

Beste Grüße,
Uwe

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme