معرفة إذا ما كان الإكسل أو الوورد مثبتين

معرفة إذا ما كان الإكسل أو الوورد مثبتين - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي التقنية (https://delphi4arab.net/forum/forumdisplay.php?fid=6)
+--- قسم : دلفي والتعامل مع الملفات (https://delphi4arab.net/forum/forumdisplay.php?fid=22)
+--- الموضوع : معرفة إذا ما كان الإكسل أو الوورد مثبتين (/showthread.php?tid=7965)

معرفة إذا ما كان الإكسل أو الوورد مثبتين - أبو معاذ - 29-06-2016

السلام عليكم ورحمة الله وبركاته ،
لمعرفة إذا ما كان الإكسل أو الوورد مثبتين هناك طريقتين :
الأولى باستعمال ال 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

RE: معرفة إذا ما كان الإكسل أو الوورد مثبتين - h-farid - 29-06-2016

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

جزاك الله عنا كل خير يا عم.

RE: معرفة إذا ما كان الإكسل أو الوورد مثبتين - mobile - 01-07-2016

بارك الله فيك