Advertisement
TLama

Untitled

Feb 1st, 2014
474
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.22 KB | None | 0 0
  1. if not ShellExec('', ExpandConstant('{tmp}\package\file.msi'), '', '', SW_SHOWNORMAL,
  2.   ewWaitUntilTerminated, ErrorCode)
  3. then
  4.   MsgBox('MSI file failed to open!' + #13#10 + ' ' + SysErrorMessage(ErrorCode), mbError, MB_OK);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement