Проблемы с завершением процесса - exitprocess

Тема в разделе "Delphi - Система", создана пользователем vln1981, 23 янв 2016.

Метки:
  1. vln1981

    vln1981 New Member

    Регистрация:
    1 авг 2015
    Сообщения:
    3
    Симпатии:
    0
    Моя программа Delphi вызывает Exe-программу. Если, после исполнения вызванной программы, применяю TerminateProcess - не осовбождаются используемые ею файлы, если применить ExitProcess - вызывающая программа завершается тоже.
    Подскажите, как правильно использовать ExitProcess, чтобы не завершалась вызывающая программа?

    procedure exec(S:string;out R1,R3:string);
    var si : Tstartupinfo;S1,S2,S3,S4:string;
    p : Tprocessinformation;
    M1:string; U:uint; Pr:cardinal;
    Fh,F:TextFile;
    Mch: Pchar;
    begin
    AssignFile(Fh,cnt.kbpath+'invc23.ari');
    Rewrite(Fh);
    write(Fh,S);
    closeFile(Fh);
    FillChar( si, SizeOf( si ) , 0 );
    with si do begin
    cb:=sizeOf(si);
    dwFlags:=STARTF_USESHOWWINDOW;
    wShowWindow:= sw_Hide;
    end;
    Mch:= Pchar(Cnt.ExePath);
    CreateProcess(Pchar(Cnt.ExePath+'cgtfn.exe'),nil,nil,nil,false,Create_default_error_mode ,nil,Mch,si,p);
    WaitforSingleObject(p.hProcess,infinite);
    TerminateProcess(p.hProcess,Pr);
    // ExitProcess(p.hProcess);
    CloseHandle( p.hProcess);
    CloseHandle(p.hThread);
    end;
     
Загрузка...
Похожие Темы - Проблемы завершением процесса
  1. aliaksandr89
    Ответов:
    3
    Просмотров:
    122
  2. Amfion
    Ответов:
    5
    Просмотров:
    119
  3. wowa
    Ответов:
    7
    Просмотров:
    377
  4. John_Tavarez
    Ответов:
    0
    Просмотров:
    334
  5. Валентин Амбер
    Ответов:
    11
    Просмотров:
    343

Поделиться этой страницей