ما هو ال windows.succeeded ؟

[AL-MOB4RM3G]

السلام عليكم
صادفت اليوم هذه windows.succeeded ,, في احد السورسات
ماذا تعني بارك الله فيكم ؟
و الفونكشن يتطلب HRESULT ,, ما هو هذا الشئ
والسلام عليكم

[o15s19]

من ملف الHELP الخاصة بالدلفي
Provides a generic test for success on any status value. Non-negative numbers indicate success.

يعني عند اجرائك Function و ناتج هذا ال الفنكشن رقم صحيح Integer فعندما يكون هذا الرقم أكبر أو يساوي الصفر فالنتيجة تكون True أما اذا كانت سلبية فالنتيجة false

[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;

بالتوفيق.

[AL-MOB4RM3G]

نعم جزآكم الله خيرا اخوآني الكرام,

الأمر وآضح الآن, شكرا لكما