Alt+F4 как отключить работу этой комбинации???

[VDLab]

Сообщение от Still_Learn

Реально тут ни слова моего... Все из FAQ.... ZhekON, ну почему ты настолько ленивый... Найди хоть что-нибудь в инете...

А проверять то, что советуешь, тем более чужой код?
В ХР такое не работает.
Гдето скачивал исходник дллки для сокрытия программы от диспетчера, правда проверить не получилось, антивирь ее сразу после компиляции в карантин перемещает, поэтому полезность ее стремится к нулю.

[НЕ_АЙС]

Советую почитать что-нибудь службы

[Трофимов Александр]

Есть выход как сервис прогу запускать, но как такое сделать не прудставляю, хотя где-то видел в инете как это сделать.

[Still_Learn]

Сообщение от VDLab

А проверять то, что советуешь, тем более чужой код?

VDLab, Вы, простите, всем авторам, участвующим в написании всякого рода FAQ, тоже этот вопрос задаете Есть хелп и вперед! Никто за ВАС ВАШУ задачу выполнять не будет, и никто никогда не говорит, вот, дескать, держи рабочую программу... Это не профессионально!! Человек хочет учиться, пусть берет инфу и учится, или у вас есть желание все сделать за него??
ZhekON, есть у меня статья по написанию сервисов, но к сожелению сюда выбросить не могу - слишком большая... Могу только ссылку на DRKB 3.0 дать : http://www.drkb.ru
Поиск там не совсем удобный, но статьи... Дотаточно обширно представлены все сферы, с которыми приходится иметь дело программистам Delphi

[ZhekON]

Могу только ссылку на DRKB 3.0 дать : http://www.drkb.ru

Очень дажэ и ничего Спасибо ВСЁ УЧАЩИМСЯ!

[VDLab]

Сообщение от Still_Learn

VDLab, Вы, простите, всем авторам, участвующим в написании всякого рода FAQ, тоже этот вопрос задаете Есть хелп и вперед! Никто за ВАС ВАШУ задачу выполнять не будет, и никто никогда не говорит, вот, дескать, держи рабочую программу... Это не профессионально!! Человек хочет учиться, пусть берет инфу и учится, или у вас есть желание все сделать за него...

Да пускай, конечно, учатся, не спорю, только чему? Тому что верить нельзя никому? ИМХО непрофессионально давать совет, не зная правилен ли он, этим вы дискредитируете в первую очередь себя. Я в своё время тоже немало времени провел в недоумении, почему большая часть таких "советов" ну никак не хотят работать!
Вот в данном случае, вы не поленились найти этот код в FAQе, не поленились набить пост, а проверить то что написали лень(?), в итоге толку ноль, зато в левой колонке форума, под аватарой прибавится еще единичка, а может кто еще и рейтинга подкинет...

Да простят меня модераторы за оффтоп.

[X=Vitamin=X]

Сообщение от ZhekON

Ну наконецто! АЛЬТ+ТАБ ужэ не работает, точнее моё приложэние теперь вечно главное!!! и АЛЬТ+ТАБ ничего не можэт зделать
Это наверное StayOnTop дало такой результат... странно только почемуто этого результата никогда не мог добится...
теперь вот проблема КАК СПРЯТАТЬ ИЗ ДИСПЕТЧЕРА ЗАДАЧ МОЮ ПРОГУ, чтобы ни в процэсах ни в приложэниях небыло видно её?

Привет ! ! !
Давай мах на мах я тебе на мыло скину пример где буквально двумя строчками можно спрятать прогу из таскбара и мэнэджера, А ТЫ МНЕ скинь пример как ты ALT+TAB отрубил
пиши на ящик: flash280887@rambler.ru

[Tayfun]

Как отключить Alt+F4
1)В событие формы OnCloseQuery задайте CanClose := false
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := false;
end;
2)
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if my_flag = false then CanClose := false;
end;
где my_flag - глобальная переменная. Она всегда false, а в true устанавливается только в событии нажатия кнопки "Отмена".
3)
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if my_flag = false then CanClose := false;
end;
CanClose := my_flag;
4)
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Shift = [ssAlt]) and (Key = VK_F4) then Key := 0;
end;
5)
TForm2 = class....
...
procedure WMSYSCOMMAND(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
...

procedure TForm2.WMSYSCOMMAND(var Msg: TWMSysCommand);
begin
if Msg.CmdType <> SC_CLOSE then inherited;
end;

[ZhekON]

Сообщение от X=Vitamin=X

А ТЫ МНЕ скинь пример как ты ALT+TAB отрубил

Я его не отрубил, его видно просто при выборе другого приложэния моё остаётся активным, чего добился через опцыю StayOnTop(окно было BsNone и во весь экран) вот и весь секрет

[X=Vitamin=X]

Сообщение от ZhekON

Я его не отрубил, его видно просто при выборе другого приложэния моё остаётся активным, чего добился через опцыю StayOnTop(окно было BsNone и во весь экран) вот и весь секрет

Дк и у меня тоже так ! ! !
НО StayOnTop не помогает...
Может его както где-то постоянно проверять надо???