|
Вопрос по поводу блокиратора
|
|
gravitas
|
Дата: Пятница, 03.12.2010, 14:42 | Сообщение # 1
|
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
|
1. Нужен код для скрытия проги от alt+f4. 2. Как сделать так, что бы программа была видима на рабочем столе, но не была бы видна в панели задач? Помогшему лично вручу подарок и ++ 
TheDeduction
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
|
| |
|
|
|
|
|
dolphin
|
Дата: Пятница, 03.12.2010, 17:49 | Сообщение # 2
|
Администратор
Сообщений: 902
Статус: Offline
|
Скрыть с панели - Доступно только для пользователей
скрыть от alt+f4 думаю много есть способов, например -
Доступно только для пользователей
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
|
|
|
cool1
|
Дата: Пятница, 03.12.2010, 18:04 | Сообщение # 3
|
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
|
вот из моего блокиратора
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssAlt in Shift) and (Key=vk_F4) then key:=0; //Запрещаем alt+f4
end;
а вот еще...
procedure TForm1.FormCreate(Sender: TObject);
var //Нас не видно в alt+tab и таск баре
RegProcess: function (p1, p2:integer): integer; stdcall;
hDllKernel: HInst;
begin
if GetVersion >= $80000000 then begin
hDllKernel := LoadLibrary('kernel32.dll');
RegProcess := GetProcAddress(hDllKernel, 'RegisterServiceProcess');
RegProcess(0, 1);
end;
ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
GetWindowLong(Application.Handle, GWL_EXSTYLE) or
WS_EX_TOOLWINDOW);
end;
За помощь ставьте +!
Сообщение отредактировал cool1 - Пятница, 03.12.2010, 18:07
|
| |
|
|
|
|
|
dolphin
|
Дата: Пятница, 03.12.2010, 19:03 | Сообщение # 4
|
|
Администратор
Сообщений: 902
Статус: Offline
|
Quote (cool1)
RegisterServiceProcess
Это вобще к чему? Работает только в 9x
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
|
|
|
gravitas
|
Дата: Пятница, 03.12.2010, 21:20 | Сообщение # 5
|
|
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
|
Quote (cool1)
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (ssAlt in Shift) and (Key=vk_F4) then key:=0; //Запрещаем alt+f4 end;
Вот это норм работает. А вот про ваш код, dolphin, отдельный разговор) 1. Код скрытия с панели задач не работает (почему то). 2. Код блокировки вешает систему, перестает шевелиться курсор и все эти симптомы пропадают после открытия диспетчера задач. Потом диспетчер закрываю, и все снова норм работает (я про систему), а вот прога все равно после этого закрываеться alt+f4.
Вобщем теперь осталось только найти код скрывания с панели задач.
TheDeduction
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
|
| |
|
|
|
|
|
dolphin
|
Дата: Пятница, 03.12.2010, 22:09 | Сообщение # 6
|
|
Администратор
Сообщений: 902
Статус: Offline
|
Quote (gravitas)
осталось только найти код скрывания с панели задач.
ShowWindow(Application.Handle, sw_Hide);
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
|
|
|
gravitas
|
Дата: Суббота, 04.12.2010, 05:03 | Сообщение # 7
|
|
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
|
Quote (dolphin)
ShowWindow(Application.Handle, sw_Hide);
Не работает 
TheDeduction
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
|
| |
|
|
|
|
|
dolphin
|
Дата: Суббота, 04.12.2010, 10:33 | Сообщение # 8
|
|
Администратор
Сообщений: 902
Статус: Offline
|
Странно, у меня на windows 7 работает. Скорее всего код необходимо вызывать когда форма уже отображена
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
|
|
|
gravitas
|
Дата: Суббота, 04.12.2010, 15:51 | Сообщение # 9
|
|
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
|
Quote (dolphin)
Скорее всего код необходимо вызывать когда форма уже отображена
Точняк!!! Включил по таймеру и сразу все стало норм!!!
З.Ы. Еще чуть чуть и мой IP увидела бы вся страна)) Аккуратней скрины делаем, Евгений... 
TheDeduction
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
|
| |
|
|
|
|
|
cool1
|
Дата: Суббота, 04.12.2010, 18:38 | Сообщение # 10
|
|
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
|
у тя статистический?
За помощь ставьте +!
|
| |
|
|
|
|
|
gravitas
|
Дата: Суббота, 04.12.2010, 18:42 | Сообщение # 11
|
|
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
|
Quote (cool1)
у тя статистический?
Динамичиский. Но все же не люблю, когда кто то знает обо мне больше,чем я того хочу (под это попадает даже название провайдера, которое зная IP можно получить через хуиз).
TheDeduction
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
|
| |
|
|
|
|
|
Kamikadze57
|
Дата: Воскресенье, 09.01.2011, 23:44 | Сообщение # 12
|
Новичок
Зарегистрирован: 08.01.2011
Группа: Пользователи
Сообщений: 1
Статус: Offline
|
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caNone;
end;
из моего блокера
|
| |
|
|
|
