Убрать программу из Alt+Tab и Ctrl+Alt+Del

ОГЛАВЛЕНИЕ    HOME  MAIL

Эта программа исчезает из Alt+Tab, не появляется и кнопка на TaskBar.

procedure TForm1.FormCreate(Sender: TObject);
var
  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;