Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

Запускаю RAR через CreateProcess. Как свернуть окно MS-DOS ?   Найти похожие ветки 

 
NovyeVasyuki   (2004-05-07 15:04) [0]

собственно процедура, которая дожидается окончания выполнения :
//--------------------------------------
procedure StartAndWait(name : PChar);
var
  si : TStartupInfo;
  pi : TProcessInformation;
begin
  ZeroMemory(@si,sizeof(si));
  si.cb:=SizeOf(si); Window
  if not CreateProcess(nil,name,nil,nil,False,0,nil,nil,si,pi)
    then messageBox(0,"Не возможно запустить процесс","",mb_ok);
  WaitForSingleObject( pi.hProcess, INFINITE );
end;
В нее передаю команду "rar.exe .........."
Как можно свернуть выскакивающее MS-DOS-овское окно ?


 
Романов Р.В. ©   (2004-05-07 15:09) [1]

F1 - CreateProcess - lpStartupInfo - wShowWindow - SW_HIDE


 
Romkin ©   (2004-05-07 15:11) [2]

Вряд ли у тебя rar для DOS, скорее это консольная программа для windows ;) Ну или если уж откопал таакого монстра, возьми rar.exe из поставки winRAR...
У TProcessInformation есть wShowWindow, просто поставь SW_HIDE :))
А по-хорошему - сюда:
http://sources.ru/delphi/delphi_system.shtml#17


 
NovyeVasyuki   (2004-05-07 15:44) [3]

Спасиба Романов Р.В.
Добавил
 si.dwFlags:=STARTF_USESHOWWINDOW;
 si.wShowWindow:=SW_MINIMIZE;
все заработало.



Страницы: 1 вся ветка

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
14-1083495134
Ilya
2004-05-02 14:52
2004.05.23
можно ли заработать в Интернете


14-1083772408
Ig
2004-05-05 19:53
2004.05.23
Это, что?


3-1082720520
Sam Stone
2004-04-23 15:42
2004.05.23
Длинный SQL запрос


6-1080829133
serg128
2004-04-01 18:18
2004.05.23
Как переслать сокетом файл большого размера (1Мб)?


6-1080739382
Max_
2004-03-31 17:23
2004.05.23
компонент twebbrouser