Как правильно скрыть кнопку в TaskBar

[Krid]

Вобщем, видимо ты хочешь так: запустил прогу - окно на десктопе, кнопки на таскбаре нету. Свернул окно - окна на десктопе нету, кнопка на таскбаре появилась. Развернул окно опять - окно на десктопе, кнопки на таскбаре нету.
Я правильно тебя понял? Если правильно, то вот код

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
   procedure AppRestore(Sender: TObject);
   procedure WMSysCommand(var M:TWMSysCommand); message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 Application.OnRestore:=AppRestore;
 SetWindowLong(Application.Handle,GWL_EXSTYLE,GetWindowLong(Application.Handle,GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
end;
 
procedure TForm1.WMSysCommand(var M: TWMSysCommand);
begin
 if  M.CmdType=SC_MINIMIZE then
   SetWindowLong(Application.Handle,GWL_EXSTYLE,GetWindowLong(Application.Handle,GWL_EXSTYLE) and not WS_EX_TOOLWINDOW);
  inherited
end;
 
 
procedure TForm1.AppRestore(Sender: TObject);
begin
 ShowWindow(Application.Handle,SW_HIDE);
end;
 
 
end.

[Krid]

Ага, теперь вроде понял. Посмотри проект в аттаче.
Прикреплённый файл (148.13 Кбайт, скачиваний: 148)