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

كود :
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
Idea
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
[-] كل من 2 users say قال شكرا ل أبو معاذ على المشاركة المفيدة
  • bassem_43, wadoud
الرد
#2
و عليكم السلام و رحمة الله و بركاته,

يا شيخ, و ماذا لو أردت أن أعرف إذا كانا مثبتين (بدون تشغيلهما) على الجهاز, هل من فكرة ؟
من قال حاد عن أصله أو قال مات فقد كذب
[-] كل من 1 user says قال شكرا ل h-farid على المشاركة المفيدة
  • أبو معاذ
الرد
#3
السلام عليكم ،
نعم يمكن  فعل ذلك  ، وقد أفردت لذلك موضوعا ،
جزاك الله خيرا على التنبيه.
معرفة إذا ما كان الإكسل أو الوورد مثبتين
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
[-] كل من 1 user says قال شكرا ل أبو معاذ على المشاركة المفيدة
  • h-farid
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف