دخول

**أبو معاذ** · 29-06-2016, 10:24 AM

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

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

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

mobile · 01-07-2016, 11:30 PM

بارك الله فيك

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة