Faire disparaitre la barre de tâche...

Résolu
Leader2000 Messages postés 187 Date d'inscription mercredi 24 mai 2006 Statut Membre Dernière intervention 28 août 2015 - 9 juil. 2009 à 19:46
Leader2000 Messages postés 187 Date d'inscription mercredi 24 mai 2006 Statut Membre Dernière intervention 28 août 2015 - 11 juil. 2009 à 15:18
Salut!

Ma question est presque semblable à celle de Lunasoft. Mais pas du tout.
J'ai un tform auquel en choissant son option ''alClient'' de la proprieté, il fait du plein écran. Mais pas du tout totalement. Parce que la barre de tâche du windows apparait avec l'option ''demarrer'' et autres option minimisée.
Ma question est de savoir, comment pourrai-je faire de manière que lorsque ce Tform apparait que cette dite barre de tâche soit aussi cachée comme tout les autres icones se trouvant sur mon Environnement de travail.

Prière de ne pas m'en tenir rigeur de ne faire d'aucun code. Je suis bloqué...
Developper est une dimension pour moi.
Leader2000

2 réponses

Leader2000 Messages postés 187 Date d'inscription mercredi 24 mai 2006 Statut Membre Dernière intervention 28 août 2015
11 juil. 2009 à 15:18
Merci à Foxi pour sa phrase d'encouragement et merci à moi même d'avoir eu ce que j'ai cherché.
procedure TForm1.FormCreate(Sender: TObject);
var
  HTaskbar: HWND;
  OldVal: LongInt;
begin
  try
    // Find handle of TASKBAR
    HTaskBar := FindWindow('Shell_TrayWnd', nil);
    // Turn SYSTEM KEYS off, Only Win 95/98/ME
    SystemParametersInfo(97, Word(True), @OldVal, 0);
    // Disable the taskbar
    EnableWindow(HTaskBar, False);
    // Hide the taskbar
    ShowWindow(HTaskbar, SW_HIDE);
  finally
    with Form1 do
    begin
      BorderStyle := bsNone;
      FormStyle   := fsStayOnTop;
      Left        := 0;
      Top         := 0;
      Height      := Screen.Height;
      Width       := Screen.Width;
    end;
  end
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  HTaskbar: HWND;
  OldVal: LongInt;
begin
  //Find handle of TASKBAR
  HTaskBar := FindWindow('Shell_TrayWnd', nil);
  //Turn SYSTEM KEYS Back ON, Only Win 95/98/ME
  SystemParametersInfo(97, Word(False), @OldVal, 0);
  //Enable the taskbar
  EnableWindow(HTaskBar, True);
  //Show the taskbar
  ShowWindow(HTaskbar, SW_SHOW);
end;

Developper est une dimension pour moi.
Leader2000
3
f0xi Messages postés 4205 Date d'inscription samedi 16 octobre 2004 Statut Modérateur Dernière intervention 12 mars 2022 37
10 juil. 2009 à 07:32
oriente tes recherches sur les mots clé "DELPHI FULLSCREEN TASKBAR"

<hr width="100%" size="2" />
0