Lazarus控制WPS文字打开文件的例子

逍遥派掌门人

下面的例子展示如何启动、关闭WPS文字，并打开一个已有的文字文件。
代码如下：

1. uses
   
2. .... , ComObj; 　　　　　　　　　　　　　　　// 增加的单元
   
3. 
   
4. const
   
5. OLE_name = 'kwps.application';                  
   
6. 
   
7. var
   
8.   wpsapp:olevariant;
   
9.   fName: variant;
   
10. 
    
11. {启动WPS并打开文件：1.wps}
    
12. procedure TForm1.Button1Click(Sender: TObject);
    
13. begin
    
14.   wpsapp:=createoleobject(OLE_name);
    
15.   wpsapp.Visible := true;
    
16.   fName:=ExtractFilePath(ParamStr(0)) + '\1.wps';           // 文字文件： 1.wps
    
17.   wpsapp.Documents.open(fName);
    
18. end;
    
19. 
    
20. {关闭WPS}
    
21. procedure TForm1.Button2Click(Sender: TObject);
    
22. begin
    
23.     wpsapp.quit;
    
24. end;
    

复制代码

逍遥派掌门人

针对：　WPS OFFICE 2016