Einzelnen Beitrag anzeigen

Basilikum

Registriert seit: 9. Aug 2003
389 Beiträge
 
Delphi 7 Professional
 
#2

Re: VerifyVersionInfo liefert immer False

  Alt 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 ?
  Mit Zitat antworten Zitat