Как сделать чтобы прога незакрывалась при нажатии ALT+F4

← →
maxim2 © (2002-11-19 11:59) [0]

Привет всем!
Может кто знает, подскажите.

← →
Игорь Шевченко © (2002-11-19 12:20) [1]

WM_CLOSE, result := 0;

← →
bak © (2002-11-19 12:23) [2]

если только по альтф4, то так:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
canclose:=false;
end;

procedure TForm1.FormDeactivate(Sender: TObject);
begin
winexec("ехе_файл_той_же_проги",sw_normal);
end;

но из диспетчера задач такое снимается просто замечательно :)

← →
maxim2 © (2002-11-19 12:33) [3]

> bak
Тока прогу закрыть теперь не могу
winexec("Project1.exe",sw_normal);
неробит.

← →
bak © (2002-11-19 12:42) [4]

а ты под какой операционкой сидишь? указал то ты список нехилый, под всех не подделаешся. этот пример у меня пашет под нт и иже с ними.

← →
maxim2 © (2002-11-19 12:44) [5]

← →
Anatoly Podgoretsky © (2002-11-19 12:49) [6]

У программы есть меню?

← →
bak © (2002-11-19 12:50) [7]

тогда ищи аналогичную winexec. хотя странно, должна она идти под 98 по всем хелпам. а что выдает?

← →
maxim2 © (2002-11-19 12:54) [8]

> Anatoly Podgoretsky меню нет
> bak вообще ничего не выдает.

← →
bak © (2002-11-19 13:01) [9]

не понял - а как тогда НЕРОБИТ???

← →
maxim2 © (2002-11-19 13:06) [10]

Ну при нажатии ALT+F4 не закрывается, но короче есть кнопка в ней выход типа Close; не закрывает. А как закрыть то?

← →
bak © (2002-11-19 13:20) [11]

ну ты ведь хотел, чтобы не закрывалась...
обработай все это дело тогда в той кнопке: поставь булевый флаг и смотри - если нажата ента кнопка, то не винехекить и все тут

← →
3223(jab) (2002-12-04 06:50) [12]

CanClose:=False;

← →
3223(jab) (2002-12-04 06:53) [13]

Забыл добавить!
Эти строки пиши в Events формы, а именно в OnCloseQuery

Осталось не понятным, тебе на WinAPI или VCL

← →
DJ_Sedoy2 (2002-12-06 20:27) [15]

Делал я CanClose:=false в OnCloseQuery и что? После пары нажатий - ждем секунд 10-15 и.... "Программа не отвечает на системные запросы..." и т.п. Как побороть?

Никак. Это уже Debug привелегия системы.

В ответ на сообщение WM_SYSCOMMAND с WPARAM = SC_CLOSE возвращаем TRUE. Только учти, что окно не будет закрываться и тогда когда на крестик нажмёшь.

WM_CREATE: ShowWindow(Wnd,SW_SHOW);

Фу, сморозил :)
WM_CLOSE: ShowWindow(Wnd,SW_SHOW);

Как сделать чтобы прога незакрывалась при нажатии ALT+F4 Найти похожие ветки