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 拖动form上的图片，form一起动

Delphi使用tnethttpclient：重定向后如何给出最终的url？

Delphi access 数据库压缩

Delphixe 如何调用stringtojstring

Delphi 查询当前目录下文件名是否存在

Delphi中adoquery执行错误的捕捉

Delphi spcomm控件的安装

Delphi程序升级到64位

Delphi 使用 idhttp 获取 utf-8 编码的中文网页

Delphi 十六进制字符串转化成字符串输出hextostr strtohex（Delphi版、c#版）

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

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