[delphi] autoukrywanie paska zadan

witam. jak z poziomu delphi moge ukryc pasek zadan ?

przepraszam, oczywiscie chodzi mi o autoukrywanie.

implementation
// deklaracja zmiennych
var wndClass  : array[0..50] of char;
var wndhandle :Thandle;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
//pokaż pasek zadań po kliknięciu na Button1
ShowWindow(wndHandle, SW_SHOW);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
// ukryj pasek zadań po Kliknięciu na Button2
ShowWindow(wndHandle, SW_HIDE);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
// klasa paska zadań
StrPCopy(@wndClass[0],'Shell_TrayWnd');
// uchwyt
wndHandle:=FindWindow(@wndClass[0],nil);
// pierwszy parametr FindWindow- wskaźnik do nazwy klasy
// drugi parametr FindWindow - wskaźnik do nazwy okna,
// nil jeśli ma pasować do wszystkich nazw okien
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// przy zamknięciu okno pokazujemy z powrotem pasek :)
   ShowWindow(wndHandle, SW_SHOW);
end;

 

Dodatkowo posprawdzaj sobie właściwości Forma (tj. formularza) typu BorderStyle i WindowsState
Literatura : :-)

http://msdn.microsoft.com/en-us/library/ms633548%28v=vs.85%29.aspx
http://msdn.microsoft.com/en-us/library/ms633499%28v=vs.85%29.aspx
http://www.softsale.com.pl/porady/index.htm

Pozdrawiam :)

pasek chryzostom napisał(a)

przepraszam, oczywiscie chodzi mi o autoukrywanie.

proszę bardzo, oczywiście używanie google jest poza twoimi możliwościami intelektualnymi...
http://www.google.pl/search?client=opera&rls=pl&q=delphi+autohide+taskbar&sourceid=opera&ie=utf-8&oe=utf-8&channel=suggest