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 程序在不同操作系统中 shellexecute 调用 chrome.exe 偶尔无效的问题

Delphi 语言字符集

Delphi string.create(char,count)

Delphi apihook

Delphi禁止用户切换任务

Delphi 字符或符号在字符串出现的次数

Delphi bytestofile

Delphi 禁用本地网络连接/启用本地网络连接

Delphi winsock 获取计算机名和ip

Delphi 取得任意程序的命令行

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

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