Faire disparaitre la barre de tâche...Résolu

Question

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

Leader2000 · Accepted Answer

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

f0xi · Answer

oriente tes recherches sur les mots clé "DELPHI FULLSCREEN TASKBAR"

<hr width="100%" size="2" />

Faire disparaitre la barre de tâche...

2 réponses

Votre réponse

Discussions similaires