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

[أبو معاذ]

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

[h-farid]

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

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

[mobile]

بارك الله فيك