غلق ابدا
procedure TForm1.Button1Click(Sender: TObject);
begin
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
0, 'Button', nil), false);
end;فتح الغلق
procedure TForm1.Button2Click(Sender: TObject);
begin
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
0, 'Button', nil), true);
end;تغيير الحجم والمكان
اقتباسprocedure TForm1.Button1Click(Sender: TObject);begin
MoveWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil),
300, 0, 80, 22, true);
end;
اخفاء واظهار ابدا
اقتباس////////////////////////////procedure Startbutton(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©) > 0 then
begin
S := StrPAS©;
if UpperCase(S) = 'BUTTON' then
begin
if Visi then
ShowWindow(Child, 1)
else
ShowWindow(Child, 0);
end;
end;
Child := GetWindow(Child, GW_HWNDNEXT);
end;
end;
///////////////////////////
اخفاء
procedure TForm1.Button4Click(Sender: TObject);
begin
Startbutton(false);
end;
اظهار
procedure TForm1.Button5Click(Sender: TObject);
begin
Startbutton(true);
end;