使用函数 ShellExecute
function ShellExecute(hWnd: HWND; Operation, FileName, Parameters,Directory: PChar; ShowCmd: Integer): HINST; stdcall;
必须引用shellapi.pas单元：
uses ShellAPI;
begin
...
ShellExecute(Handle,'open','winword','D:\test.doc','',SW_SHOWNORMAL);
// winword 报错就写成 word
...
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024