本文整理自网络,侵删。
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 xe10 针对全面屏手机端无法全面显示,下方显示黑条的处理
Delphi [函数] unicode 检查字符串是否含中文字
Delphi用多媒体库 bass.dll 播放 mp3 - 打开、播放、暂停、停止
更多相关阅读请进入《Delphi》频道 >>