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

[أبو معاذ]

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

كود :

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

[h-farid]

و عليكم السلام و رحمة الله و بركاته,

يا شيخ, و ماذا لو أردت أن أعرف إذا كانا مثبتين (بدون تشغيلهما) على الجهاز, هل من فكرة ؟

[أبو معاذ]

السلام عليكم ،
نعم يمكن  فعل ذلك  ، وقد أفردت لذلك موضوعا ،
جزاك الله خيرا على التنبيه.
معرفة إذا ما كان الإكسل أو الوورد مثبتين