procedure TForm1.FormShow(Sender: TObject);
begin
  ShowWindow(Application.handle, SW_HIDE);
  SetWindowLong(Self.handle, GWL_EXSTYLE, GetWindowLong(Self.handle,
    GWL_EXSTYLE) ); // 不在alt+tab中出现
end;