|
Конечно, отключить Ctrl+Alt+Del - это круто, но пользователь сразу догадается, что кто-то у него побывал в гостях с нечистыми намерениями, а если вы хотите всё делать »под покровом темноты», то наилучший способ просто убрать прогу из списка.
Например, по созданию окна. Для этого до слова implementation вписываем следующую функцию:
function RegisterServiceProcess(dwProcessID,dwType:integer):integer;stdcall;external 'KERNEL32.DLL';
А на создание окна код будет выглядеть так:
procedure TForm1.FormCreate(Sender: TObject);
begin
if not(csDesigning in ComponentState) then
RegisterServiceProcess(GetCurrentProcessID,1);
end;
Ну вот и всё, а если вам понадобится сделать прогу видимой, тогда сделаем это так:
procedure TForm1.Button1Click(Sender: TObject);
begin
if not(csDesigning in ComponentState) then
RegisterServiceProcess(GetCurrentProcessID,0);
end;
Предыдущий вопрос
|
|
Следующий вопрос
by ktima
|
