Как сделать так, чтобы второе окно не появлялось

← →
Andersen © (2004-01-14 16:17) [0]

У меня такая ситуация: из одной программы запускается другая обычная программа. Запускается так:
Код:

SHELLEXECUTEINFO lpExecInfo;
lpExecInfo.cbSize = sizeof(SHELLEXECUTEINFO);
lpExecInfo.fMask = SEE_MASK_NOCLOSEPROCESS;
lpExecInfo.hwnd = NULL;
lpExecInfo.lpVerb = NULL;
lpExecInfo.lpFile = chCurrentDirectory;
lpExecInfo.lpParameters = NULL;
lpExecInfo.lpDirectory = lpDirectory;
lpExecInfo.nShow = SW_HIDE;
lpExecInfo.hInstApp = NULL;

ShellExecuteEx(&lpExecInfo);
WaitForSingleObject(lpExecInfo.hProcess, INFINITE);

Но несмотря на lpExecInfo.nShow = SW_HIDE, все равно окно второй программы появляется на экране. Как этого избежать? Причем, ставлю в самой этой второй проге у формы Visible = False. Запускаю - как будто оно установлено в True. В чем тогда разница?

ЗЫ. Извиняюсь за сишный синтаксис, но я думаю, что это неважно

← →
alex_*** © (2004-01-14 16:19) [1]

var
pi: TProcessInformation;
si: TStartupInfo;

begin
with Si do
begin
cb := SizeOf( Si);
dwFlags := startf_UseShowWindow;
wShowWindow:=SW_HIDE;
end;

if not CreateProcess(nil,PChar(ResFile),nil,nil,false,
NORMAL_PRIORITY_CLASS,nil,nil,si,pi) then
RaiseLastOSError();
CloseHandle(pi.hThread);
WaitForSingleObject(pi.hProcess,INFINITE);
CloseHandle(pi.hProcess);

Спасибо, попробую.

Как сделать так, чтобы второе окно не появлялось Найти похожие ветки