如何打开chm文件?如何调用Excel打开某一xls文件?

[qiu_sj]

如题?

[qiu_sj]

up

[soldier7451]

打开CHM文件

shellexecute(handle,'open','.\help.chm',nil,nil,SW_SHOWMAXIMIZED);

[dickeybird888]

1.打开chm
uses shellapi
ShellExecute(Handle,Pchar('Open') ,Pchar('C:\a.chm'),'','',SW_SHOWNORMAL);
2.打开execl
var
ex1:variant;
begin
ex1:=createoleobject('excel.Application');
ex1..visible:=true;
ex1..Workbooks.Open('d:\book2.xls');
ex1..ActiveWindow.WindowState:=2;//最大化
end;

[dickeybird888]

uses shellapi
ShellExecute(Handle,Pchar('Open') ,Pchar('C:\a.chm'),'','',SW_SHOWNORMAL);
2.打开execl
var
ex1:variant;
begin
ex1:=createoleobject('excel.Application');
ex1.visible:=true;
ex1.Workbooks.Open('d:\book2.xls');
ex1.ActiveWindow.WindowState:=2;//最大化
end;

[qiu_sj]

谢谢各位的帮助
运行ex1:=createoleobject('excel.Application');不让编译呀