Вниз
Скачать: CL | DM;

Мне надо убить MessageBox....   Найти похожие ветки 

 
KA-87 ©   (2003-05-25 18:03) [0]

Мастера как мне убить MessageBox?
Чего-то типа этого?

procedure NagWindowKill(var Msg: TWMнезнаю_чего); message
WM_незнаю_чего; //Так ведь?
...
procedure TForm.NagWindowKill(var Msg: TWMнезнаю_чего);
var
NagHandle: HWND;
begin
NagHandle:=FindWindow("класс_(у_меня_вроде_#32770)","заголовок_(non_registered)");
SendMessage(NagHandle,WM_CLOSE(???),0,0);
end;


 
KA-87 ©   (2003-05-25 18:14) [1]

Использую я один компонент, а он при запуске приложения выдает сообщение, которое мне надо закрыть


 
Pat ©   (2003-05-25 18:15) [2]

SoftIce"ом можно "вырезать"


 
Nick Denry ©   (2003-05-25 19:51) [3]

KA-87 © И не спрашивай....... ;-)


 
Ihor Osov'yak ©   (2003-05-25 20:14) [4]

Ну так и говори, что нужно компонент ломануть..

Зы. А правила почитать то не мешало-бы..


 
.::D.e.M.o.N.i.X::. ©   (2003-05-25 20:32) [5]

Кинь компонент на почту. Помогу:)))))


 
KA-87 ©   (2003-05-25 20:38) [6]

NagHandle:=FindWindow("#32770","non registered");//ищу это окно
PostMessage(NagHandle,WM_QUIT,0,0);
Почему после этого прога моя вообще отрубается


 
.::D.e.M.o.N.i.X::. ©   (2003-05-25 21:08) [7]

Попробуй WM_ENTER и тогда, если я не ошибаюсь, произойдет нажатие кнопки Ok. А сообщение WM_QUIT в данном случае означает завершить программу, т.е. сделать Terminate.


 
Song ©   (2003-05-25 22:27) [8]

>>Почему после этого прога моя вообще отрубается
Потому что окно не находится и возвращает 0.


 
Ihor Osov'yak ©   (2003-05-25 23:39) [9]

> Почему после этого прога моя вообще отрубается

Не отрубается, а завершает работу. Ибо ты ее сам об этом попросил..



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.019 c
1-13144
Delph1
2003-05-26 10:46
2003.06.05
Как поменять местами узлы в TListView?


1-13242
Marina_S
2003-05-21 11:54
2003.06.05
Почему не работает присвоение TLabel.Caption?


14-13450
SPeller
2003-05-20 07:38
2003.06.05
Что такое Дельфийские игры?


3-13023
Брат
2003-05-16 12:41
2003.06.05
Округление в запросе значений DOUBLE до 2х знаков


14-13403
Jaxtor
2003-05-16 16:39
2003.06.05
Документация по EWwin




   Наверх