13.03.2013, 09:17
|
|
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
скрыть:
Код:
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;
показать:
Код:
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;
__________________
Пишу программы за еду.
__________________
|