ما هو ال windows.succeeded ؟

[kachwahed]

وعليكم السلام ورحمة الله
إذا وجدت دالة تعيد HRESULT فالتحقق من صحتها يكون بـ Succeeded.
مثال:
دالة للتحقق من تثبيت OLE الخاص بـ MS Access في النظام:

PHP كود :

function IsMSAccessInstalled: Boolean;
var
  G: TGUID;
begin
  //Check if MS Access was installed (use ActiveX unit)
  Result := Succeeded(CLSIDFromProgID(PWideChar('Access.Application'), G));
end; 


حيث يعيد التابع CLSIDFromProgID قيمة HResult:

كود :

function CLSIDFromProgID(pszProgID: POleStr; out clsid: TCLSID): [color=red]HResult[/color]; stdcall;

بالتوفيق.