| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как скрыть окно консоли? [D7, Win95/98, WinME, NT4, Win2k, WinXP]

R.D.I. ©   (2005-02-13 18:05:00) 

Доброе время суток ув. Мастера!

С помощью CreateProcess запускаю консольную программу и жду пока она отработает. Однако при этом появляется окно консоли. Заголовок сменить удалось, а вот скрыть окно - нет (делаю S.wShowWindow:=SW_HIDE).

Использую такой код:
function Run(const Cmd, Title: string): Boolean;
var
 S: STARTUPINFO;
 P: PROCESS_INFORMATION;
begin
 ZeroMemory(@S,sizeof(S));
 S.cb:=SizeOf(S);
 S.lpTitle:=PChar(Title);
 S.dwFlags:=0;
 S.wShowWindow:=SW_HIDE; //?
 Result := CreateProcess( nil,
              PChar(Cmd),
              nil,
              nil,
              False,
              0,
              nil,
              nil,
              S,
              P
           );
 if not Result then Exit;
 WaitForSingleObject(P.hProcess, INFINITE);
 CloseHandle(P.hProcess );
 CloseHandle(P.hThread );
end;
Заранее спасибо.

---

R.D.I.   (2005-02-13 18:13:00) [1]

Ok. Большое спасибо!

---

Almaz   (2005-02-13 18:08:00) [2]

А флаг задать не забыли ?

S.dwFlags := STARTF_USESHOWWINDOW;

Удачи.

---

Наверх