本文整理自网络,侵删。
uses shellapi;//调用API打开文件 使用系统默认打开方式进行打开.procedure .OpenFileAPI(sfn:string);begin ShellExecute(application.Handle, 'open', PChar(sfn), nil, nil, SW_SHOW);end;
相关阅读 >>
Delphi deletedirectory 删除目录下所有文件包括子文件夹下所有文件
更多相关阅读请进入《Delphi》频道 >>