| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
X [D6, Win95/98]
diks © (2003-01-22 16:55:00)Люди помогите как убить (закрыть) чужую прогу вссе что здесь говорили НЕ работает! Помогите пожалуйста!
mukha (2003-01-22 22:24:00) [1]
> diks © (22.01.03 18:05)
> 1 это здесь мне еще не говорили
> 2 она (PostMessage(FindWindow(nil, "Калькулятор"), WM_QUIT,
> 0, 0)) закрывает мою прогу а не чужую!
Чтобы не закрывалась твоя прога сначала проверь, что есть что закрывать, а потом и закрывай!
Например:
procedure TForm1.Button1Click(Sender: TObject);
begin
if findwindow(nil, "Калькулятор") <>0 then
Postmessage(findwindow(nil,"Калькулятор"), wm_quit,0,0)
else
ShowMessage("Не могу закрыть Калькулятор, т.к. он не запущен!");
end;
Кроме того, если знаешь имя exe-файла, для закрытия проги можно использовать функцию из Единой базы процедур и функций для Delphi. Кажется, KILLProcess.
diks (2003-01-22 18:05:00) [2]1 это здесь мне еще не говорили
2 она (PostMessage(FindWindow(nil, "Калькулятор"), WM_QUIT, 0, 0)) закрывает мою прогу а не чужую!
Adolf (2003-01-22 17:08:00) [3]Это долгая история, если хочешь, чтоб закрытие работало всегда, даже для зависших.
Я уж не говорю про
PostMessage(FindWindow(nil, "Калькулятор"), WM_QUIT, 0, 0) т.к.
уверен на 25 что это тут говорилось.
Есть выход : в кладовке спокойно лежит (по кр. мере лежала) как
раз эта програ с "долгой историей". Пиоисчите. Найдете. Я много раз всю "кладовку" полностью перебирал для интереса
Digitman (2003-01-22 17:07:00) [4]Сказка про белого бычка)
Anatoly Podgoretsky (2003-01-22 16:58:00) [5]Опять по кругу
Digitman (2003-01-22 16:57:00) [6]
> вссе что здесь говорили НЕ работает
А что здесь говорили ?)
И зачем понадобилось "убивать"/закрывать "чужую прогу" ? А если она ("чужая прога") не хочет, чтобы ее "убивали" ?)
| |
