كود دلفي لمعرفة اسم ملف التطبيق(exe/dll)

للحصول على اسم الملف في التطبيق يمكن استخدام الكود التالي :

الكود:

sFileName := Application.ExeName;

// أو

الكود:

sFileName := ParamStr(0);

إذا كنت تعمل على مكتبات dll بدلا من تطبيقات من نوع exe فيمكنك استعمال الكود التالي :

الكود:

uses SysUtils;
sFileName := GetModuleName(HInstance); // يعطي اسم  Dll
sFileName := GetModuleName(0); // يعطي الاسم  Exe

أكواد مهمة جدا - شكرا على المعلومة