| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

завершить работу другой программы из своей [D5]

lety ©   (2002-10-04 00:05:00) 

В общем приложении запускаются другие .ехе. При завершении работы с общим приложением все открытые при этом .ехе тоже должны закрываться. Как это можно сделать (закрывать приложение из другой программы)?

---

TankMan   (2002-10-07 00:43:00) [1]

А у меня почти тоже самая проблема, только я не знаю, какой именно заголовок у запущенного приложения, я знаю лишь название самого exe. как можно отловить... вобщем мне нужно чтобы программка убивала, все программы с определенным названием ехе.

---

Novichek   (2002-10-06 01:49:00) [2]

Это понятно, но тут говорили что эта подпрограмма закрывает все окна запущенные после общей программы, кроме нее самой, я пробовал, она уменя или сама уничтожается или таскбар уничтожает.
и еще: а если незнаешь Имя класса окна и заголовок окна, то есть ли какие-то общие значения для закрытия всех программ запущенных после моей, но нетрогая её саму? если есть, то подскажите пожалуйста.

---

drpass   (2002-10-06 00:21:00) [3]

Имя класса окна и заголовок окна

---

Novichek   (2002-10-05 22:24:00) [4]

чёй-то у меня не получается... а что надо указывать в procedure KillProgram(ClassName: PChar; WindowTitle: PChar); в переменных
ClassName и WindowTitle что бы заработало?

---

Song   (2002-10-05 17:44:00) [5]

Общее не закроется т.к. Вы запускаете их в отдельном процессе.

---

pag77   (2002-10-05 17:27:00) [6]

а как закрыть другие приложения запущенные из под общего, не закрывая общее?

---

Rouse_   (2002-10-05 17:14:00) [7]

Работает

Желаю успехов

---

pag77   (2002-10-05 17:03:00) [8]

А под windows XP это работает?

---

Song   (2002-10-04 09:37:00) [9]

Если имя окна или имя проекта известно можно через посылку WM_CLOSE

---

SCHMaster   (2002-10-04 03:33:00) [10]

Лови ...

procedure KillProgram(ClassName: PChar; WindowTitle: PChar);
const
PROCESS_TERMINATE = $0001;
var
ProcessHandle : THandle;
ProcessID: Integer;
TheWindow : HWND;
begin
TheWindow := FindWindow(Classname, WindowTitle);
GetWindowThreadProcessID(TheWindow, @ProcessID);
ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
TerminateProcess(ProcessHandle,4);
end;


---

Наверх