https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=5847&view=findpost&p=66299 Wed, 12 Mar 2003 17:21:15 +0000 https://forum.sources.ru/index.php?showtopic=5847&view=findpost&p=66299 C WinExec'ом сложнее.
Надо определить хэндл программы. Везде здесь есть условности. Например, если программа видима и активна и запускается с фокусом ввода (обычно) - значит GetForeGroundWindow. Если нет, то всё зависит от конкретных условий.
Если делать всё по уму, то здесь также куча условностей. Надо запускать чтобы получить хэндл процесса или потока. Это можно сделать через CreateProcess() или ShellExecuteEx() Далее надо во всех потоках этого процесса найти главное окно и послать ему WM_CLOSE. Так можно закрыть программу. Но самое сложное, найти нужное окно. Точного диагноза что именно это окно главное - нет.]]> Song Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=5847&view=findpost&p=66297 Wed, 12 Mar 2003 17:10:25 +0000 https://forum.sources.ru/index.php?showtopic=5847&view=findpost&p=66297 [Удалено модератором]
Новый вопрос - новая тема.]]> FEV Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=5847&view=findpost&p=66295 Wed, 12 Mar 2003 16:53:30 +0000 https://forum.sources.ru/index.php?showtopic=5847&view=findpost&p=66295
var
  fSI  : TStartupInfo;
  fPI   : TProcessInformation;
  CommandString   : string;
.............
Вызов:

CreateProcess(Nil, PChar(CommandString), Nil, Nil, False, CREATE_NEW_CONSOLE, Nil, Nil, FSi, FPi);

Завершение:

    TerminateProcess(fPI.hProcess, 0);
    CloseHandle(fPI.hThread);
    CloseHandle(fPI.hProcess);
]]> Was Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=5847&view=findpost&p=66293 Wed, 12 Mar 2003 14:17:36 +0000 https://forum.sources.ru/index.php?showtopic=5847&view=findpost&p=66293
нажали на кнопку с WinExec(... , SW_SHOW);
какой код должен быть у второй кнопки, которая должна закрыть это, только что открытое, окно?]]> peter Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=5847&view=findpost&p=66291 Wed, 12 Mar 2003 04:03:33 +0000 https://forum.sources.ru/index.php?showtopic=5847&view=findpost&p=66291    HANDLE hProcess,      // handle to the process
   UINT uExitCode      // exit code for the process  
  );]]> andrey_pst Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=5847&view=findpost&p=66290 Tue, 11 Mar 2003 21:18:54 +0000 https://forum.sources.ru/index.php?showtopic=5847&view=findpost&p=66290 peter Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=5847&view=findpost&p=66287 Tue, 11 Mar 2003 19:19:22 +0000 https://forum.sources.ru/index.php?showtopic=5847&view=findpost&p=66287 x2er0 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=5847&view=findpost&p=66286 Tue, 11 Mar 2003 18:50:16 +0000 https://forum.sources.ru/index.php?showtopic=5847&view=findpost&p=66286 peter Delphi: Общие вопросы