معرفة إذا ما كان الإكسل أو الوورد مشغلين

[أبو معاذ]

السلام عليكم ورحمة الله وبركاته ،
لمعرفة إذا كان الأكسل مشغل :

كود :

var   myHandle: HWND; begin   myHandle := FindWindow('XLMAIN', nil);   if myHandle > 0 then     ShowMessage('الإكسل مشغل')   else     ShowMessage('الأكسل غير مشغل'); end;

أما عن الوورد :

كود :

var   myHandle: HWND; begin   myHandle := FindWindow('OpusApp', nil);   if myHandle > 0 then     ShowMessage('الوورد مشغل')   else     ShowMessage('الوورد غير مشغل'); end;

كما يرجى القاء نظرة عن الرابط التالي لمعرفة الكلاس الخاص بتطبيق مايكروسوفت أووفيس
Window class names used in Microsoft Office

http://users.skynet.be/am044448/Programm..._names.htm