如何让程序在最小化后不在任务栏上显示出来

Question

谢谢！

Answer 1

试试这个....
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);

Answer 2

function TaskmanWindow: HWND;
type
  TGetTaskmanWindow = function(): HWND; stdcall;
var
  hUser32: THandle;
  GetTaskmanWindow: TGetTaskmanWindow;
begin
  Result := 0;
  hUser32 := GetModuleHandle('user32.dll');
  if (hUser32 > 0) then
  begin
    @GetTaskmanWindow := GetProcAddress(hUser32, 'GetTaskmanWindow');
    if Assigned(GetTaskmanWindow) then
    begin 
      Result := GetTaskmanWindow; 
    end;
  end; 
end; procedure ShowTaskmanWindow(bValue: Boolean); 
var
  hTaskmanWindow: Hwnd; 
begin 
  hTaskmanWindow := TaskmanWindow; 
  if hTaskmanWindow <> 0 then 
  begin
    ShowWindow(GetParent(hTaskmanWindow), Ord(bValue)); 
  end;
end; // Example to Hide the Taskman Window 
procedure TForm1.Button1Click(Sender: TObject); 
begin
  ShowTaskmanWindow(True);
end;

Answer 3

ShowWindow(Handle, SW_HIDE);
ShowWindow(Application.Handle, SW_HIDE);

Answer 4

ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);