[Delphi01]

Hola otra vez , Muchas gracias a todos , ecfisa,dec, roman discupa mi idioma porque el español no es mi idioma materna ,

Yo lo que quería es una form maximizada con BorderIcons y sin mostrar la barra de tareas
Y al final he logrado hacer este codigo :

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.AppEvnts;

type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    procedure WMSysCommand(var Msg: TMessage);message WM_SYSCOMMAND;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.WMSysCommand(var Msg: TMessage);
var
  SysCmd: Word;
begin
  SysCmd:= Msg.wParam and $FFF0;
  case SysCmd of
    SC_MOVE, SC_SIZE: Msg.Result:= 0;
  else
    inherited;
     if ( SysCmd= SC_MINIMIZE) then
     ShowWindow(FindWindow('Shell_TrayWnd', nil),SW_RESTORE)
     else
     if ( SysCmd= SC_RESTORE) then
     ShowWindow(FindWindow('Shell_TrayWnd', nil),SW_HIDE);

  end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 ShowWindow(FindWindow('Shell_TrayWnd', nil),SW_RESTORE) ;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
   Form1.Height := screen.Height;
   Form1.Width := screen.Width;
   Form1.Top := 0;
   Form1.Left := 0;
   ShowWindow(FindWindow('Shell_TrayWnd', nil),SW_HIDE);

end;

end.

Saludos cordiales amigos