Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как сделать чтобы прога незакрывалась при нажатии ALT+F4 [D6, Win95/98, WinME, NT4, Win2k, WinXP]

maxim2 © (2002-11-19 11:59:00)
Привет всем!
Может кто знает, подскажите.

Cosmic (2002-12-07 23:38:00) [1]
Фу, сморозил :)
WM_CLOSE: ShowWindow(Wnd,SW_SHOW);

Cosmic (2002-12-07 14:45:00) [2]
WM_CREATE: ShowWindow(Wnd,SW_SHOW);

Suntechnic (2002-12-07 01:36:00) [3]
В ответ на сообщение WM_SYSCOMMAND с WPARAM = SC_CLOSE возвращаем TRUE. Только учти, что окно не будет закрываться и тогда когда на крестик нажмёшь.

Song (2002-12-07 00:52:00) [4]
Никак. Это уже Debug привелегия системы.

DJ_Sedoy2 (2002-12-06 20:27:00) [5]
Делал я CanClose:=false в OnCloseQuery и что? После пары нажатий - ждем секунд 10-15 и.... "Программа не отвечает на системные запросы..." и т.п. Как побороть?

Anatoly Podgoretsky (2002-12-04 08:02:00) [6]
Осталось не понятным, тебе на WinAPI или VCL

3223(jab) (2002-12-04 06:53:00) [7]
Забыл добавить!
Эти строки пиши в Events формы, а именно в OnCloseQuery

3223(jab) (2002-12-04 06:50:00) [8]
CanClose:=False;

bak (2002-11-19 13:20:00) [9]
ну ты ведь хотел, чтобы не закрывалась...
обработай все это дело тогда в той кнопке: поставь булевый флаг и смотри - если нажата ента кнопка, то не винехекить и все тут

maxim2 (2002-11-19 13:06:00) [10]
Ну при нажатии ALT+F4 не закрывается, но короче есть кнопка в ней выход типа Close; не закрывает. А как закрыть то?

bak (2002-11-19 13:01:00) [11]
не понял - а как тогда НЕРОБИТ???

maxim2 (2002-11-19 12:54:00) [12]
> Anatoly Podgoretsky меню нет
> bak вообще ничего не выдает.

bak (2002-11-19 12:50:00) [13]
тогда ищи аналогичную winexec. хотя странно, должна она идти под 98 по всем хелпам. а что выдает?

Anatoly Podgoretsky (2002-11-19 12:49:00) [14]
У программы есть меню?

maxim2 (2002-11-19 12:44:00) [15]
98

bak (2002-11-19 12:42:00) [16]
а ты под какой операционкой сидишь? указал то ты список нехилый, под всех не подделаешся. этот пример у меня пашет под нт и иже с ними.

maxim2 (2002-11-19 12:33:00) [17]
> bak
Тока прогу закрыть теперь не могу
winexec("Project1.exe",sw_normal);
неробит.

bak (2002-11-19 12:23:00) [18]
если только по альтф4, то так:

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

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

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

Игорь Шевченко (2002-11-19 12:20:00) [19]
WM_CLOSE, result := 0;

Наверх

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