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正则表达式匹配中文

Delphi http远程屏幕源码

Delphi label1 自动尺寸

Delphi xe7写的一个http post的小测试程序

用Delphi编写聊天程序

Delphi application.processmessage作用

Delphi2010安装twordapplication控件

Delphi net.httpclient用最精简的代码获取网页数据

Delphi datasnap使用ipv6

Delphi 判断文件路径，不存在则建立

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

转载请注明出处：木庄网络博客 » Delphi ShellExecute打开文件另类用法