معرفة إذا ما كان الإكسل أو الوورد مثبتين
#1
السلام عليكم ورحمة الله وبركاته ،
لمعرفة إذا ما كان الإكسل أو الوورد مثبتين  هناك طريقتين :
الأولى باستعمال ال Registry

كود :
Function IsExcelInstalled:Boolean;
begin
    with TRegistry.Create do
    try
    RootKey := HKEY_CLASSES_ROOT;
        if OpenKey('\Excel.Application', False) then
        begin
            Result:=True;
            CloseKey;
        end
        else Result:=False;
    finally
       Free;
    end;
end;


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if IsExcelInstalled then
    ShowMessage('OK')
  else
    ShowMessage('Non');
end;




الثانية :
كود :
uses ComObj, ActiveX;


procedure TForm1.BitBtn1Click(Sender: TObject);
var
  ClassID: TCLSID;
  strOLEObject: string;
begin
  strOLEObject := 'Excel.Application';
  if (CLSIDFromProgID(PWideChar(WideString(strOLEObject)), ClassID) = S_OK)
then
  begin
    ShowMessage('application is installed')
  end
  else
  begin
    ShowMessage('application Not installed')
  end
end;

المصدر :

إقتباس :http://www.scalabium.com/faq/dct0143.htm
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
[-] كل من 4 users say قال شكرا ل أبو معاذ على المشاركة المفيدة
  • bassem_43, h-farid, mobile, wadoud
الرد
#2
و عليكم السلام و رحمة الله و بركاته,

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


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


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