Скачать: CL | DM;

Как скрыть окно консоли?   Найти похожие ветки 

← →
R.D.I. ©   (2005-02-13 18:05) [0]

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

С помощью 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;
Заранее спасибо.

---

← →
Almaz ©   (2005-02-13 18:08) [1]

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

S.dwFlags := STARTF_USESHOWWINDOW;

Удачи.

---

← →
R.D.I. ©   (2005-02-13 18:13) [2]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c