Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.30;
Скачать: CL | DM;

Вниз

X   Найти похожие ветки 

 
diks ©   (2003-01-22 16:55) [0]

Люди помогите как убить (закрыть) чужую прогу вссе что здесь говорили НЕ работает! Помогите пожалуйста!


 
Digitman ©   (2003-01-22 16:57) [1]


> вссе что здесь говорили НЕ работает


А что здесь говорили ?)

И зачем понадобилось "убивать"/закрывать "чужую прогу" ? А если она ("чужая прога") не хочет, чтобы ее "убивали" ?)


 
Anatoly Podgoretsky ©   (2003-01-22 16:58) [2]

Опять по кругу


 
Digitman ©   (2003-01-22 17:07) [3]

Сказка про белого бычка)


 
Adolf   (2003-01-22 17:08) [4]

Это долгая история, если хочешь, чтоб закрытие работало всегда, даже для зависших.
Я уж не говорю про
PostMessage(FindWindow(nil, "Калькулятор"), WM_QUIT, 0, 0) т.к.
уверен на 25 что это тут говорилось.

Есть выход : в кладовке спокойно лежит (по кр. мере лежала) как
раз эта програ с "долгой историей". Пиоисчите. Найдете. Я много раз всю "кладовку" полностью перебирал для интереса


 
diks ©   (2003-01-22 18:05) [5]

1 это здесь мне еще не говорили
2 она (PostMessage(FindWindow(nil, "Калькулятор"), WM_QUIT, 0, 0)) закрывает мою прогу а не чужую!


 
mukha ©   (2003-01-22 22:24) [6]


> 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.



Страницы: 1 вся ветка

Текущий архив: 2003.01.30;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.012 c
1-96758
boby_g
2003-01-22 16:33
2003.01.30
Как собирать стринг в С++ Builder


1-96761
Brain
2003-01-21 16:15
2003.01.30
Полупрозрачность.


6-96922
LeReve
2002-11-29 15:08
2003.01.30
ф-я connect завершается успехом раньше чем вызывается accept=(((


4-97088
Vicheslav
2002-12-15 14:17
2003.01.30
моя прога (Место)(без) Explorer


9-96501
Artem_V
2002-08-03 12:06
2003.01.30
DelphiX