Taskleiste Programm verstecken

[omata]

Delphi-Quellcode:

  :
  private
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SysCommand;
  :
  :
procedure TForm.FormShow(Sender: TObject);
var Owner : HWnd;
begin
  Owner:=GetWindow(Handle, GW_OWNER);
  ShowWindow(Owner, SW_HIDE);
end;

procedure TForm.WMSysCommand(var Message: TWMSysCommand);
begin
  if Message.CmdType and $FFF0 = SC_MINIMIZE then
    Hide
  else
    inherited;
end;