使用lazarus打开office文件的方法

bugxiong

1. program TestMsOffice;
   
2. 
   
3. {$IFDEF FPC}
   
4. {$MODE Delphi}
   
5. {$ELSE}
   
6. {$APPTYPE CONSOLE}
   
7. {$ENDIF}
   
8. 
   
9. uses
   
10.   SysUtils, Variants, ComObj;
    
11. 
    
12. const
    
13.   ServerName = 'Word.Application';
    
14. var
    
15.   Server     : Variant;
    
16. begin
    
17.   if Assigned(InitProc) then
    
18.     TProcedure(InitProc);
    
19. 
    
20.   try
    
21.     Server := CreateOleObject(ServerName);
    
22.   except
    
23.     WriteLn('Unable to start Word.');
    
24.     Exit;
    
25.   end;
    
26. 
    
27.    {Open existing document}  //Substitute your path and doc
    
28.   Server.Documents.Open('c:\my\path\mydoc.doc');
    
29. 
    
30.   Server.Visible := True;  {Make Word visible}
    
31. 
    
32. end.

复制代码