| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Убрать SysTray [D6, WinME]

Hammer ©   (2002-03-28 16:47:00) 

Кто-нибудь знает как скрыть(просто убрать) System Tray?
*** Такое св-во применяется в проге *Быстрые кнопки* ***
Подскажите, пожалуйста, скорее.........................

---

copyr25   (2002-03-28 22:25:00) [1]

На название процедур внимание не обращайте:))

---

copyr25   (2002-03-28 22:23:00) [2]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure hideStartbutton(visi:boolean);
Var
Tray, Child : hWnd;
C : Array[0..127] of Char;
S : String;

Begin
Tray := FindWindow("Shell_TrayWnd", NIL);
Child := GetWindow(Tray, GW_CHILD);
While Child <> 0
do Begin
If GetClassName(Child, C, SizeOf(C)) > 0
Then Begin
S := StrPAS(C);
If UpperCase(S) = "TRAYNOTIFYWND" then begin
If Visi then ShowWindow(Child, 1)
else ShowWindow(Child, 0);
end;
End;
Child := GetWindow(Child, GW_HWNDNEXT);
End;
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
hideStartbutton(false);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
hideStartbutton(true);
end;

end.

---

AlexRaza   (2002-03-28 21:47:00) [3]

Можно так...
var
hTaskBar : THandle;
...
hTaskbar := FindWindow("Shell_TrayWnd", Nil);
ShowWindow(hTaskBar, SW_HIDE);
...

---

Наверх