Delphi ShellExecute打开文件另类用法


本文整理自网络,侵删。

 
  if StrLen(PChar(filePathEdit.Text)) > 0 then
  begin
    if ShellExecute(Handle, 'open', PChar(filePathEdit.Text), nil, nil, SW_SHOWNORMAL) <= 32 then
    begin
    //www.delphitop.com
      MessageDlg('无法执行请求的操作.' + #13#10 +'确保键入的名称正确.',  mtError, [mbOK], 0);
      Exit;
    end;
    Close;
  end;

相关阅读 >>

Delphi执行cmd命令

Delphi 如何打开记事本并显示指定内容

Delphi string转换成tstrings

Delphi调节图片亮度、色彩和饱和度的代码

Delphi record,两种声明方式

Delphi 获取屏幕缩放比例

Delphi winapi: getwindowrect、getclientrect - 获取窗口的外部与内部矩形

Delphi工具之tdump

Delphi取得桌面工作区域的大小

Delphi实现获取密码框中的密码

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...