fpc : 调用桌面应用程序

最新推荐文章于 2022-08-07 17:07:13 发布

belldeep

最新推荐文章于 2022-08-07 17:07:13 发布

阅读量1.3k

点赞数

分类专栏： fpc 文章标签： free pascal WPS KET Application

本文链接：https://blog.csdn.net/belldeep/article/details/45110349

版权

fpc 专栏收录该内容

15 篇文章

订阅专栏

本文提供了使用Pascal语言调用桌面应用程序的具体示例，包括WPS电子表格和Internet Explorer浏览器。通过创建OLE对象并设置其可见性，演示了如何打开文件及导航到指定网址。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

这个例子是讲 how to 调用桌面应用程序，比如：WPS电子表格

testCom.pas

program testCom;
{$mode objfpc}{$H+}

uses
  SysUtils,Variants,ComObj,ActiveX,Windows;
  
const
  Com = 'KET.Application';
var
  App :Variant;
  wbook :Variant;
  Filename :WideString;
  
begin
  if Assigned(InitProc) then
	TProcedure(InitProc);
  try
    App:= CreateOleObject(Com);
    App.Visible:= True;
    Filename:= App.GetOpenFilename('Excel Files (*.xls), *.xls');
	if FileExists(Filename) then
	  wbook:= App.Workbooks.Open(Filename);
  except
    writeln(' Open Error ');
  end;

end.

注意：Filename :WideString; 不是 String , 也不是 AnsiString .

下一个例子是调用 IE浏览器

testIE.pas

program testIE;
{$mode objfpc}{$H+}

uses
  SysUtils,Variants,ComObj,ActiveX,Windows;
  
const
  Com = 'InternetExplorer.Application';
var
  App :Variant;
  Url,w :WideString;
begin
  if ParamCount =1 then
     w:= ParamStr(1)
  else
    exit;
  
  Url:= 'http://www.iciba.com/'+w;
  writeln(Url);
  if Assigned(InitProc) then
     TProcedure(InitProc);
  try
    App:= CreateOleObject(Com);
    App.Visible:= True;
    App.Navigate(Url);
  except
    writeln(' Open Error ');
  end;

end.