delphi4arab منتديات دلفي للعرب

نسخة كاملة : ما هو ال windows.succeeded ؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
صادفت اليوم هذه windows.succeeded ,, في احد السورسات
ماذا تعني بارك الله فيكم ؟
و الفونكشن يتطلب HRESULT ,, ما هو هذا الشئ
والسلام عليكم
من ملف الHELP الخاصة بالدلفي
Provides a generic test for success on any status value. Non-negative numbers indicate success.

يعني عند اجرائك Function و ناتج هذا ال الفنكشن رقم صحيح Integer فعندما يكون هذا الرقم أكبر أو يساوي الصفر فالنتيجة تكون True أما اذا كانت سلبية فالنتيجة false
وعليكم السلام ورحمة الله
إذا وجدت دالة تعيد 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;
بالتوفيق.
نعم جزآكم الله خيرا اخوآني الكرام,

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