![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Можно ли закрыть другое приложение из своей программы
Anton © (2003-01-30 11:21:00)1
Игорь Шевченко (2003-01-30 14:31:00) [1]А проверка на ошибки уже забыта, как кошмарный сон ?
Anton (2003-01-30 14:19:00) [2]а вот так почему то убивает Delphi
procedure TForm1.Button1Click(Sender: TObject);
var
ProcessHandle : THandle;
ProcessID: Integer;
TheWindow : HWND;
begin
TheWindow := FindWindow(nil, "LinkwithR3");
GetWindowThreadProcessID(TheWindow, @ProcessID);
ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
TerminateProcess(ProcessHandle,4);
end;
Anton (2003-01-30 14:00:00) [3]Процесс не убивается
ProcessHandle:=FindWindow(nil,"LinkwithR3");
TerminateProcess(ProcessHandle,4);
Anton (2003-01-30 11:57:00) [4]Спасибо
DVM (2003-01-30 11:51:00) [5]Вот тут есть все что надо разбирайся:
http://delphibase.endimus.com/?action=viewfunc&topic=sysparams&id=10003
Anton (2003-01-30 11:45:00) [6]Как определить handle процесса
DVM (2003-01-30 11:41:00) [7]TerminateProcess
Anton (2003-01-30 11:40:00) [8]А если мое приложение находится в Process List
DVM (2003-01-30 11:36:00) [9]var
h:hWnd;
begin
h:=findwindow(nil,"то что написано у фара в заголовке окна");
sendmessage(h,...
end;
Игорь Шевченко (2003-01-30 11:35:00) [10]У приложения нету handle
Anton (2003-01-30 11:31:00) [11]А как узнать handle того приложения какое я хочу закрыть, например FAR
DVM (2003-01-30 11:28:00) [12]1. sendmessage(handletoyprogi,wm_close,0,0)
2. или sc_close
3. или TerminateProcess