Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
ВнизСпрятать TaskBar Найти похожие ветки
← →
Осирис (2002-10-07 17:17) [0]Делаю так:
ShowWindow(FindWindow("Shell_TrayWnd", Nil), SW_HIDE);
TaskBar исчезает, но место которое он занимал по прежнему нельзя использовать. Как это можно исправить ?
← →
Игорь Шевченко (2002-10-07 17:34) [1]SHAppbarMessage
← →
Юрий Зотов (2002-10-08 01:20) [2]И еще SystemParametersInfo c SPI_SETWORKAREA.
← →
Осирис (2002-10-08 12:12) [3]>> SHAppbarMessage
Пробовал так:
var
AppBarData : TAppBarData;
begin
AppBarData.hWnd := FindWindow("Shell_TrayWnd", nil);
AppBarData.cbSize := sizeof(AppBarData);
SHAppBarMessage(ABM_REMOVE,AppBarData);
end;
Не получается. Чего не хватает ?
>> еще SystemParametersInfo c SPI_SETWORKAREA.
procedure TForm1.Button1Click(Sender: TObject);
var rect : TRect;
begin
rect.Left:=0; rect.Top:=0; rect.Right:=1024; rect.Bottom:=750;
SystemParametersInfo(SPI_SETWORKAREA,0, @rect, SPIF_SENDCHANGE);
end;
При этом все максимизированные окна изменяют свой размер. А окна, которые не были максимизированны при этом не изменяют свой размер, дабы не вылазить за указанный мной rect. Можно конечно перебрать все открытые окна и вручную изменить их размер, но может быть можно проще ?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c