
07.02.2014, 15:04
|
 |
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
можно:
Код:
var
si: STARTUPINFO;
pi: PROCESS_INFORMATION;
begin
ZeroMemory(@si, SizeOf(STARTUPINFO));
si.cb:=SizeOf(STARTUPINFO);
si.dwFlags:=STARTF_USESHOWWINDOW;
si.wShowWindow:=SW_HIDE;
if not CreateProcess(nil, 'cmd /c "полный путь\file.msi"', nil, nil, False, 0, nil, nil, si, pi) then RaiseLastOSError;
WaitForSingleObject(pi.hProcess, INFINITE);
CloseHandle(pi.hThread);
CloseHandle(pi.hProcess);
end;
__________________
Пишу программы за еду.
__________________
|