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

Question

如题?

Answer 1

打开CHM文件shellexecute(handle,'open','.\help.chm',nil,nil,SW_SHOWMAXIMIZED);

Answer 2

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;

Answer 3

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;

Answer 4

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