Как убрать мою программу из списка Alt+Ctrl+Del?
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer;
stdcall;
external 'KERNEL32.DLL';
implementation
procedure TForm1.Button1Click(Sender: TObject);
begin //Скрываем
if not (csDesigning
in ComponentState)
then
RegisterServiceProcess(GetCurrentProcessID, 1);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin //Опять показываем
if not (csDesigning
in ComponentState)
then
RegisterServiceProcess(GetCurrentProcessID, 0);
end;
Взято с Исходников.ru
Содержание Назад Вперед