Registriert seit: 9. Aug 2003
389 Beiträge
Delphi 7 Professional
|
Re: VerifyVersionInfo liefert immer False
6. Nov 2006, 07:41
VerSetConditionMask liefert doch einen Rückgabewert, der bei dir nun im nichts versickert...
Delphi-Quellcode:
begin
op := VER_GREATER_EQUAL;
ZeroMemory(@osvi, sizeof(TOSVersionInfoEx));
osvi.dwOSVersionInfoSize := sizeof(TOSVersioNinfoEx);
osvi.dwMajorVersion := 5;
osvi.dwMinorVersion := 1;
osvi.wServicePackMajor := 2;
osvi.wServicePackMinor := 0;
// Von hier...
ConditionMask := 0;
ConditionMask := VerSetConditionMask(ConditionMask, VER_MAJORVERSION, op);
ConditionMask := VerSetConditionMask(ConditionMask, VER_MINORVERSION, op);
ConditionMask := VerSetConditionMask(ConditionMask, VER_SERVICEPACKMAJOR, op);
ConditionMask := VerSetConditionMask(ConditionMask, VER_SERVICEPACKMINOR, op);
// ...bis hier geändert
result := VerifyVersionInfoW(osvi, VER_MAJORVERSION or VER_MINORVERSION or VER_SERVICEPACKMAJOR or
VER_SERVICEPACKMINOR, ConditionMask);
end;
funzt es so ?
|
|
Zitat
|