?

?

?

form1上需要opendialog1、button1、edit1。

?

uses shellapi;

?

代碼 procedure TForm1.Button1Click(Sender: TObject);

begin
if opendialog1.Execute then
//ShellExecute(handle,'open',pchar(opendialog1.FileName),nil,nil,SW_SHOW ); //2個的執行效果貌似一樣
ShellExecute(Form1.handle,'open',pchar(opendialog1.FileName),nil,nil,SW_SHOWNORMAL);

edit1.Text:=opendialog1.FileName;
end;

?

?

?

?

?

?

?

?

轉載于:https://www.cnblogs.com/zxdream/archive/2010/09/02/1815770.html

總結

以上是生活随笔為你收集整理的delphi打开word文件（刚刚学会的嘿嘿~）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。