本文整理自网络,侵删。
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 winapi: getwindowrect、getclientrect - 获取窗口的外部与内部矩形
更多相关阅读请进入《Delphi》频道 >>