скрыть:
Код:
1 2 3 4 5 6 7 8 9 | var
pData: TAppBarData;
begin
ZeroMemory(@pData, SizeOf(TAppBarData));
pData.cbSize:=SizeOf(TAppBarData);
pData.hWnd:=FindWindow('Shell_TrayWnd', nil);
pData.lParam:=ABS_ALWAYSONTOP or ABS_AUTOHIDE;
SHAppBarMessage(ABM_SETSTATE, pData);
end;
|
показать:
Код:
1 2 3 4 5 6 7 8 9 | var
pData: TAppBarData;
begin
ZeroMemory(@pData, SizeOf(TAppBarData));
pData.cbSize:=SizeOf(TAppBarData);
pData.hWnd:=FindWindow('Shell_TrayWnd', nil);
pData.lParam:=ABS_ALWAYSONTOP;
SHAppBarMessage(ABM_SETSTATE, pData);
end;
|
|