1. Мегаконкурс в апреле "Приведи друзей на codeby". Дарим деньги, подписку на журнал хакер и выдаем статус "Paid Access". Подробнее ...

    Скрыть объявление

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

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

Наш партнер Genesis Hackspace
Метки:
  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. nikos
    Ответов:
    29
    Просмотров:
    341
  2. lmike
    Ответов:
    18
    Просмотров:
    257
  3. VikTor1990
    Ответов:
    0
    Просмотров:
    72
  4. hitesh
    Ответов:
    6
    Просмотров:
    155
  5. Hackerelite
    Ответов:
    24
    Просмотров:
    563

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