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 xp 之后, Delphi 动注册表不方便了...逼出来一个办法:

Delphi xe listbox 行高根据内容高度进行调速

Delphi 字符串与内存流和文件的快速转换函数

Delphi 简单的登录窗口

Delphi superobject json操作类的基本用法

Delphi弹出信息框大全

学习使用Delphi for android 调用java类库

win32全局钩子在Delphi下实现的关键技术

Delphi滚动窗口标题

Delphi 多重循环

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

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