如何判断Excel已经开启了

[fairyhoodwater]

如何判断Excel已经开启了

[纯冰糖]

遍历进程，看是否有excel进程

[pl5th2001]

最简单的方法：检查进程，转大写后是否等于'EXCEL.EXE'

[pl5th2001]

方法2：用server组件上的EXCEL组件，主动去连接一下，看是否出错，连接成功的话就表明已经启动

[kp1150]

可以用這個試下：
hWnd := FindWindow('XLMAIN',nil)
if hWnd <> 0 then SendMessage(hWnd,WM_CLOSE,0,0);

[fairyhoodwater]

这招挺好的吧？

uses ComObj,ActiveX;
function IsObjectActive(className : string):boolean;
var
ClassID: TCLSID;
Unknown: IUnknown;
begin
try
ClassID := ProgIDToClassID(ClassName);
result := GetActiveObject(ClassID, nil, Unknown) = S_OK;
except
// raise;
result := false;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsObjectActive('Word.Application') then ShowMessage('Word is running !');
if IsObjectActive('Excel.Application') then ShowMessage('Excel is running !');
if IsObjectActive('Outlook.Application') then ShowMessage('Outlook is running !');
if IsObjectActive('Access.Application') then ShowMessage('Access is running !');
if IsObjectActive('Powerpoint.Application') then ShowMessage('Powerpoint is running !');
end;