+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ما هو ال windows.succeeded ؟ (/showthread.php?tid=1329)
ما هو ال windows.succeeded ؟ - AL-MOB4RM3G - 14-11-2009
السلام عليكم
صادفت اليوم هذه windows.succeeded ,, في احد السورسات
ماذا تعني بارك الله فيكم ؟
و الفونكشن يتطلب HRESULT ,, ما هو هذا الشئ
والسلام عليكم
ما هو ال windows.succeeded ؟ - o15s19 - 16-11-2009
من ملف الHELP الخاصة بالدلفي
Provides a generic test for success on any status value. Non-negative numbers indicate success.
يعني عند اجرائك Function و ناتج هذا ال الفنكشن رقم صحيح Integer فعندما يكون هذا الرقم أكبر أو يساوي الصفر فالنتيجة تكون True أما اذا كانت سلبية فالنتيجة false
ما هو ال windows.succeeded ؟ - kachwahed - 16-11-2009
وعليكم السلام ورحمة الله
إذا وجدت دالة تعيد 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;
كود :
function CLSIDFromProgID(pszProgID: POleStr; out clsid: TCLSID): [color=red]HResult[/color]; stdcall;ما هو ال windows.succeeded ؟ - AL-MOB4RM3G - 17-11-2009
نعم جزآكم الله خيرا اخوآني الكرام,
الأمر وآضح الآن, شكرا لكما