Консультация № 81114
05.04.2007, 00:28
0.00 руб.
0 2 2
Здраствуйте!
У меня вот такие вопросы:
1) Нужно чтобы программа не отображалась Диспетчере задач Windows XP.
2)В программе используется следующее:
alphablend:=true;
for i:=1 to 252 do alphablendvalue:=i;
как сделать чтобы это работало не только по Windows XP, но и под 2000, Me и остальные - проверял не работает.
Если вдруг есть компонент у меня (Delphi 2006!).

Обсуждение

Неизвестный
05.04.2007, 12:08
общий
это ответ
Здравствуйте, Овчинников Николай Владиславович!
1) 2 варианта: 1) Писать сервис Windows. 2) Перехватывать доступ к API функциям списка процессов. Но будет ругаться антивирус сразу. Я так понял вы пишите что-то не хорошее. Если так уж нужно то могу выслать исходник примера. Ну или сами найдите.
2) В Win ME,98 небудет работать никак! Дело в том что поддержка прозрачности появилась только в 2000 Windows. Под 2000 вроде все работает нормально, но могу ошибиться. Компонент не нужен, это функция shell32.dll...
Неизвестный
05.04.2007, 13:20
общий
это ответ
Здравствуйте, Овчинников Николай Владиславович!
В приложении код, который нужно поставить на событие TTimer. Тогда открыть диспетчер задач не получиться

Приложение:
varh,h2,h3:hwnd;beginh:=findwindow(nil,‘Диспетчер задач Windows‘);if h0 thenbeginpostmessage(h,wm_quit,1,0);end;
Форма ответа