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

Darksquall

Дата 4.11.2004, 12:37 (ссылка)

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

Загрузка ...

Опытный

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

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

Че то не получается дождаться завершения приложения,
выдает ошибку Access vioation at adress .... in module ntdll.dll

стоит XP, может поэтому?
вот код

Код


var
 hProcess : array [0..1] of Cardinal;
 struc1 : PSTARTUPINFO;
 struc2 : PROCESS_INFORMATION;
...
CreateProcess ( PChar(VremKat+NameFile) ,nil,nil,nil,False,NORMAL_PRIORITY_CLASS,nil,nil,struc1^,struc2 );
 hProcess[0] := struc2.hProcess;
if WaitForMultipleObjects ( 2, @hProcess, True, INFINITE ) = 1 then
    ShowMessage ('   OK' );

Это сообщение отредактировал(а) Darksquall - 4.11.2004, 12:38

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

www.bankcards.su

maxim1000

Дата 4.11.2004, 12:43 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 3334
Регистрация: 11.1.2003
Где: Киев

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

насколько я понял требуется ожидать одного объекта
зачем тогда использовать WaitForMultipleObjects?
ошибка, скорее всего, возникает при использовании hProcess[1], который не заполняется

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

qqq

Darksquall

Дата 4.11.2004, 13:20 (ссылка)

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

Загрузка ...

Опытный

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

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

Нет, ошибка возникает на команде CreateProcess smile

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

www.bankcards.su

p0s0l

Дата 4.11.2004, 14:39 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Если на CreateProcess ошибка, то может неправильно struc1 заполнил ?

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

С уважением, г-н Посол.

Darksquall

Дата 4.11.2004, 14:50 (ссылка)

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

Загрузка ...

Опытный

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

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

О, вот так заработало. smile

Код


procedure TForm1.ExecAndWait(FileNames:String);
var
Rslt: LongBool;
StartUpInfo: TStartUpInfo;
ProcessInfo: TProcessInformation;
App:array [0..254] of Char;
CmdLine: String;
begin
FillChar(StartupInfo, SizeOf(TStartupInfo), #0);
with StartupInfo do
   begin
cb:=SizeOf(TStartupInfo);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow :=SW_SHOW;
   end;
FindExecutable(PChar(FileNames),nil,App);
CmdLine:=App+' "'+ Filenames + '"';
Rslt:=CreateProcess(nil, PChar(CmdLine), nil, nil, False,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo);

if Rslt then
        begin
WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
CloseHandle(ProcessInfo.hThread);
CloseHandle(ProcessInfo.hProcess);
ShowMessage('Файл закрыт!!!!');
        end else ShowMessage('Ошибка закрытия файла');
end;

хух, кошмар, теперь буду связывать 4 разных приложения через OLE и это все с SQL сервером smile

, немного уже осталось

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

www.bankcards.su

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