VPF::WaitForSingleObject - Форум программистов

<Spawn>

Дата 28.5.2003, 19:21 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 1
Всего: 64

Создаю процесс функцией CreateProcess, а затем пытаюсь ждать его полного запуска при помощи WaitForSingleObject, но мое приложение виснет, хотя процесс запускается. Вот код:

Код

procedure TForm1.Button1Click(Sender: TObject);
var
StartInfo:TStartUpInfo;
ProcInfo:TProcessInformation;
StartTime, LastTime:integer;
begin
FillChar(StartInfo,SizeOf(StartInfo),#0);
with StartInfo do begin
 cb:=SizeOf(StartInfo);
 dwFlags:=STARTF_USESHOWWINDOW;
 wShowWindow:=SW_SHOWNORMAL;
end;
StartTime:=GetTickCount();
if not CreateProcess('C:\MyProgram.exe',nil,nil,nil,False,CREATE_NEW_PROCESS_GROUP or
                     NORMAL_PRIORITY_CLASS,nil,nil,StartInfo,ProcInfo) then
  ShowMessage(IntToStr(GetLastError))
else
begin
 WaitForSingleObject(ProcInfo.hProcess,INFINITE);
 LastTime:=GetTickCount();
 ShowMessage('Process was started in '+IntToStr(LastTime-StartTime)+' seconds');
end;

В чем может быть дело? Заранее спасибо.

Это сообщение отредактировал(а) <Spawn> - 28.5.2003, 19:24

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

<Spawn>

Дата 28.5.2003, 19:40 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 1
Всего: 64

Все я разобрался - поставил WaitForInputIdle заместо WaitForSingleObject;

--------------------

Sarge

Дата 28.5.2003, 21:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 24.5.2003
Где: Москва, флотская улица, дом 13

Репутация: нет
Всего: нет

Молодец, я уже думал что разбираться начну щас, а тут такое обломное сообщение, мол я уже сам разобрался, поэтому и пишу, раз уж начал...

Medved

Дата 2.6.2003, 10:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: нет
Всего: 154

МОЕДРАТОР: 2Sarge. НЕ ФЛЕЙМИТЬ!

--------------------

http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »