本文整理自网络,侵删。
uses WinTypes, ShellAPI;
procedure OpenObject(sObjectPath: string);begin ShellExecute(0, nil, PChar( sObjectPath ), nil, nil, SW_NORMAL);end;
//调用 OpenObject('c:\my_docs\report.txt');
相关阅读 >>
Delphi spcomm 调试串口解决总是在程序断开的时候才发送指令的问题
Delphi �c 如何将多个文件扩展名传递给tdirectory.getfiles?
Delphi tstringlist stringlist的特殊用法
更多相关阅读请进入《Delphi》频道 >>