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

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

Где взять hProcess для функции WaitForInputIdle

tipman ©   (2003-06-28 20:42:00) 

Запускаю чужую прогу с помощью ShellExecute. Нужно очень отловить окончание загрузки программы. Нашёл функцию WaitForInputIdle но для неё нужен hProcess. Где его можно взять?

---

Ян   (2003-06-30 13:43:00) [1]

через CreateProcess гораздо проще
var
x:TProcessInformation;
s:TStartupInfo;
i:boolean;
WinHandle,MnuHandle,SubMnuHandle:HWND;
MnuID:integer;
begin
ZeroMemory(@s,sizeof(s));
s.cb:=sizeof(s);
s.wShowWindow:=SW_SHOWNORMAL;
s.dwFlags:=STARTF_USESHOWWINDOW;
i:=createprocess(
имя проги,
nil,
nil,
nil,
false,
CREATE_DEFAULT_ERROR_MODE + NORMAL_PRIORITY_CLASS,
nil,
nil,
s,
( x.hProcess, INFINITE)

через CreateProcess гораздо проще
var
x:TProcessInformation;
s:TStartupInfo;
i:boolean;
WinHandle,MnuHandle,SubMnuHandle:HWND;
MnuID:integer;
begin
ZeroMemory(@s,sizeof(s));
s.cb:=sizeof(s);
s.wShowWindow:=SW_SHOWNORMAL;
s.dwFlags:=STARTF_USESHOWWINDOW;
i:=createprocess(
имя проги,
nil,
nil,
nil,
false,
CREATE_DEFAULT_ERROR_MODE + NORMAL_PRIORITY_CLASS,
nil,
nil,
s,
x);
WaitForInputIdle(x.hProcess, INFINITE);
Win32Check(CloseHandle(x.hProcess));

---

Songq   (2003-06-28 22:47:00) [2]

С ShellExecute() слабо. Можешь использовать ShellExecuteEx()

---

tipman   (2003-06-28 21:19:00) [3]

а слабо тоже самое но не с ShellExecuteEx, а ShellExecute? (дабы не переделывать прогу!) и вообще как можно получить hProcess, если я даже не сам запускаю программу, а она запускается каким-либо другим образом?

---

Ученик   (2003-06-28 20:51:00) [4]

{ Project JEDI Code Library (JCL) }

function ShellExecAndWait(const FileName: string; const Parameters: string;
const Verb: string; CmdShow: Integer): Boolean;
var
Sei: TShellExecuteInfo;
Res: LongBool;
Msg: tagMSG;

begin
FillChar(Sei, SizeOf(Sei), #0);
Sei.cbSize := SizeOf(Sei);
Sei.fMask := SEE_MASK_DOENVSUBST or SEE_MASK_FLAG_NO_UI or SEE_MASK_NOCLOSEPROCESS or
SEE_MASK_FLAG_DDEWAIT;
Sei.lpFile := PChar(FileName);
Sei.lpParameters := PCharOrNil(Parameters);
Sei.lpVerb := PCharOrNil(Verb);
Sei.nShow := CmdShow;
Result := ShellExecuteEx(@Sei);
if Result then
begin
WaitForInputIdle(Sei.hProcess, INFINITE);
while (WaitForSingleObject(Sei.hProcess, 10) = WAIT_TIMEOUT) do
begin
repeat
Res := PeekMessage(Msg, Sei.Wnd, 0, 0, PM_REMOVE);
if Res then
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
until (Res = False);
end;
( Sei.hProcess)

{ Project JEDI Code Library (JCL) }

function ShellExecAndWait(const FileName: string; const Parameters: string;
const Verb: string; CmdShow: Integer): Boolean;
var
Sei: TShellExecuteInfo;
Res: LongBool;
Msg: tagMSG;

begin
FillChar(Sei, SizeOf(Sei), #0);
Sei.cbSize := SizeOf(Sei);
Sei.fMask := SEE_MASK_DOENVSUBST or SEE_MASK_FLAG_NO_UI or SEE_MASK_NOCLOSEPROCESS or
SEE_MASK_FLAG_DDEWAIT;
Sei.lpFile := PChar(FileName);
Sei.lpParameters := PCharOrNil(Parameters);
Sei.lpVerb := PCharOrNil(Verb);
Sei.nShow := CmdShow;
Result := ShellExecuteEx(@Sei);
if Result then
begin
WaitForInputIdle(Sei.hProcess, INFINITE);
while (WaitForSingleObject(Sei.hProcess, 10) = WAIT_TIMEOUT) do
begin
repeat
Res := PeekMessage(Msg, Sei.Wnd, 0, 0, PM_REMOVE);
if Res then
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
until (Res = False);
end;
CloseHandle(Sei.hProcess);
end;
end;

---

Наверх