Excel OLE'nin kullanılabilir olup olmadığını kontrol etmenin doğru yolu nedir?

Question

Excel OLE'yi, Excel olmadan PC'lerde başlatılabildiğinden programımdan kullanıp kullanamayacağımı test etmem gerekiyor. Net üzerindeki kod örnekleri Excel'in kurulu olduğunu varsayalım, ama değilse?

XLApp := CreateOleObject('Excel.Application'); 
try 
    // Hide Excel 
    XLApp.Visible := False; 
    // Open the Workbook 
    XLApp.Workbooks.Open(aPath); 
    ...snip... 
finally 
    // Quit Excel 
    if not VarIsEmpty(XLApp) then 
    begin 
    XLApp.Quit; 
    XLAPP := Unassigned; 
    end; 
end; 

Excel'in yüklü olup olmadığını bulmak için doğru kod mu bu?

//Try to create Excel OLE 
try 
    XLApp := CreateOleObject('Excel.Application'); 
except 
    ShowMessage('Error opening Excel'); 
    Exit; 
end; 

Answer 1

Excel kullanılabilir olup olmadığını kontrol etmek Scalabium's tip dayalı bir kod kullanabilirsiniz. Ya da bir şey gibi:

uses ComObj, ActiveX; 

function IsObjectAvailable(const ClassName: string): Boolean; 
var 
    ClassID: TCLSID; 
begin 
    Result := Succeeded(CLSIDFromProgID(PWideChar(WideString(ClassName)), 
    ClassID)); 
end; 

Excel Aşağıdaki kodu kullanarak çalışıyorsa da kontrol edebilirsiniz: Bazı prosedür veya olay

function IsObjectActive(const ClassName: string): Boolean; 
var 
    ClassID: TCLSID; 
    Unknown: IUnknown; 
begin 
    Result := False; 
    if Succeeded(CLSIDFromProgID(PWideChar(WideString(ClassName)), ClassID)) then 
    Result := Succeeded(GetActiveObject(ClassID, nil, Unknown)); 
end; 

Ve sonra:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    if IsObjectAvailable('Excel.Application') then 
    ShowMessage('Excel is available'); 
    if IsObjectActive('Excel.Application') then 
    ShowMessage('Excel is running'); 
end;