{Delphi打開任何Windows支持文件,Use ShellAPI,Dialogs}
function ExecuteFile(const FileName, Params, Dir: string; ShowCmd: Integer): THandle;{封裝ShellExecute}
begin
Result := ShellExecute(Application.MainForm.Handle, nil, PChar(FileName), PChar(Params), PChar(Dir), ShowCmd);
end;
if ExecuteFile(Filename, Params, path , SW_SHOW) <= 32 then
MessageDlg('請確定文件是否存在,謝謝', mtError, [mbOk], 0)
else
Application.Minimize;