Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Блокировка окна запускаемого консольного приложения [D5, Win95/98, Win2k, WinXP]

AndreyS © (2003-10-06 15:46:00)

Извиняюсь за наверное уже задаваемый вопрос, но искать скорость
сетки и время не позволяют.

Вот стандартный (из книжки) код по запуску консольного (не досовского) приложения.

var
StartInfo: TstartupInfo; ProcInfo: TProcessInformation;
----------------------------------------------------------------------

FillChar(StartInfo, Sizeof(StartInfo), #0);
StartInfo.cb:=Sizeof(StartInfo);
StartInfo.wShowWindow:=SW_HIDE;
if not CreateProcess(nil, "myprog", nil, nil, false,
CREATE_NEW_CONSOLE or HIGH_PRIORITY_CLASS, nil, nil, StartInfo, ProcInfo)
then ShowMessage(IntToStr(GetLastError))
else begin
//Application.ProcessMessages;
if WaitForSingleObject(ProcInfo.hProcess, 600000) = WAIT_TIMEOUT
then begin ShowMessage(" Time enoght") end;
{ExitProcess(ProcInfo.hThread);}
CloseHandle(ProcInfo.hProcess);
end;

Все работает нормально, но сделать невидимым и лучше вообще несоздаваемым
окно (которое почему то создается под консольное приложение) не удается.
Консольное приложение на экран ничего не посылает, только в файлы пишет,
да и читает только с файлов.
Как сделать так чтобы окно для него не создавалось (сейчас мелькает пустое
черное окно с названием проги на линейке). Время на это тратится и сильно
портит впечатление от работы вызывающего приложения.

Прошу помочь.
Заранее спасибо за ответ.

AndreyS (2003-10-07 12:20:00) [1]

Polevi спасибо.
Я вчера уже нашел это у себя дома в Дарахвелидзе Delphi4. Все логично - прежде чем указывать
команду надо указать кто ее будет отрабатывать. Вот что значит читать разные брошурки
перепечатываемые людьми которые сами наверное ничего не писали толком.
В брошурке StartInfo.dwFlags:=STARTF_USESHOWWINDOW; потеряно.
Видимо на работу надо тащить нормальные книжки из дома.
Еще раз спасибо.

Polevi (2003-10-07 09:53:00) [2]

StartInfo.dwFlags:=STARTF_USESHOWWINDOW;

DVM (2003-10-07 09:34:00) [3]

А может не делать консольного приложения, а сделать с одним невидимым окном на API?

AndreyS (2003-10-06 20:21:00) [4]

Ну убрал- и ничего (окошко только еще дольше висит, пока винды догадываюся его прикрыть).

Verg (2003-10-06 15:54:00) [5]

> if not CreateProcess(nil, "myprog", nil, nil, false,
> CREATE_NEW_CONSOLEor HIGH_PRIORITY_CLASS, nil, nil, StartInfo,
> ProcInfo)

Может убрать?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »