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

Вниз

CreateProcess   Найти похожие ветки 

 
-= Demon =-   (2003-05-06 15:51) [0]

Ситуация такая - необходимо запустить приложение и дождаться окончания его выполнения. Делаем через CreateProcess. При этом запускаемое приложение должно быть невидимо (а это старый добрый DOS). Все делаем под win"2k.
Дилема - в структуре TStartupInfo в поле wShowWindow указываем SW_HIDE, но приложение все равно видно. Как избавиться от этого? Может кто предложит другой способ?

function Exec(...): integer;
var
pi: TProcessInformation;
si: TStartupInfo;

begin

.....

ZeroMemory(@si,sizeof(si));
si.cb:=SizeOf(si);
si.lpReserved:=nil;
si.lpDesktop:=nil;
si.lpReserved2:=nil;
si.cbReserved2:=0;
si.wShowWindow:=SW_HIDE;
si.dwFlags:=STARTF_FORCEONFEEDBACK;
si.lpTitle:=PChar(sTitle);

bStart:=CreateProcess(
nil, // pointer to name of executable module
PChar(cmd), // pointer to command line string
nil, // pointer to process security attributes
nil, // pointer to thread security attributes
False, // handle inheritance flag
REALTIME_PRIORITY_CLASS, // creation flags
nil, // pointer to new environment block
nil, // pointer to current directory name
si, // pointer to STARTUPINFO
pi // pointer to PROCESS_INFORMATION
);

if bStart then
begin
try
while WaitforSingleObject(pi.hProcess, 100) = WAIT_TIMEOUT do
begin
Application.ProcessMessages;
if Application.Terminated then TerminateProcess(pi.hProcess, 0);
end;
finally
...
end;
end;

...

end;


 
circul ©   (2003-05-06 17:05) [1]

si.dwFlags := STARTF_FORCEONFEEDBACK+STARTF_USESHOWWINDOW;

Кроме этого, после окончания работы внешней программы

CloseHandle(pi.hThread);
CloseHandle(pi.hProcess)


 
-= Demon =-   (2003-05-06 17:17) [2]

>circul
Спасибо...



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

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

Наверх




Память: 0.47 MB
Время: 0.02 c
1-20136
Ahmad K
2003-06-24 19:25
2003.07.07
ShellExecute(handle, open , http://www.de.ru , nil, nil, SW_????


3-19961
Lord Vader
2003-06-11 10:32
2003.07.07
Несколько копий одного QuickReport на одной странице


1-20155
Yanis
2003-06-23 21:33
2003.07.07
Как запустить файл?


14-20270
mikhasenko.anton
2003-06-20 12:05
2003.07.07
интерфейс Delph 5


1-20077
Igel
2003-06-24 10:32
2003.07.07
Присоединить меню к дереву