Verhindern das Programm im Taskmanager angezeigt wird

[konda]

Delphi-Quellcode:

procedure TForm1.WMSysCommand(var msg: TWMSysCommand);
begin
  if msg.CmdType and $FFF0 = SC_MINIMIZE then
    hide
  else 
    inherited; 
end; 



procedure TForm1.FormShow(Sender: TObject);
var 
  hwndOwner: HWnd;

begin
   hwndOwner := GetWindow(Handle, GW_OWNER);
  ShowWindow(hwndOwner, SW_HIDE); 
  // For Windows 2000, additionally call the ShowWindowAsync function: 
  ShowWindowAsync(hwndOwner, SW_HIDE); 
  //Form is invisible, too
  ShowWindowAsync(Self.Handle, SW_HIDE);
  //Form is show 
  ShowWindowAsync(Self.Handle, SW_SHOW); 

end;

Mit dem Code wird nur noch der Prozess angezeigt, in der Startleiste ist da auch nichts mehr zu sehen.