Форум: "Система";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];
ВнизПараметры панели задач Найти похожие ветки
← →
Rim (2004-02-04 21:54) [0]Подкажите пожалуйста, как из программы определить параметры панели задач,стоит ли галочка "Автоматически убирать с экрана" ,если стоит то убрать галочку.
← →
DVM © (2004-02-05 18:09) [1]А в реестр глядели?
← →
Rim (2004-02-05 21:54) [2]Глядел, но не нашел.Если кто знает, подскажите.
← →
DVM © (2004-02-06 19:07) [3]Я не уверен, но скорее всего параметры панели задач хранятся там в двоичном виде и этот параметр записан вместе с другими как одна структура. Куда, я не знаю. Можно попробовать отслеживать изменения каким либо монитором реестра.
← →
Rim (2004-02-06 21:25) [4]Пробовал, Regshot не находит изменений
← →
DVM © (2004-02-08 01:01) [5]
> Пробовал, Regshot не находит изменений
они должны сохраняться по WM_DESTROY панели задач, т.е. при закрытии эксплорера, при выходе из системы.
← →
Rim (2004-02-09 19:29) [6]А можно попонятней
← →
DVM © (2004-02-09 21:17) [7]Таскбар сохраняет свои настройки тогда когда эксплорер закрывается. А вы отслеживали момент до этого, потому ничего не поймали.
← →
S.P.I.R.I.T (2004-02-10 00:20) [8]Вот рабочая проседура откуда взял непомню.
procedure GetDesktop(var R: TRect; var Edge: UInt);
var
AppBarData : TAppBarData;
bAlwaysOnTop, //Taskbar всегда на экране
bAutoHide : boolean;
Clrect, WRect : TRect;
// Edge: UInt; <-- //Местоположение TaskBar
{---}
procedure DetectTaskBar;
begin
AppBarData.hWnd := FindWindow("Shell_TrayWnd", nil);
AppBarData.cbSize := sizeof(AppBarData);
bAlwaysOnTop := (SHAppBarMessage(ABM_GETSTATE, AppBardata) and ABS_ALWAYSONTOP) <> 0;
bAutoHide := (SHAppBarMessage(ABM_GETSTATE, AppBardata) and ABS_AUTOHIDE) <>0;
GetClientRect(AppBarData.hWnd, Clrect);
GetWindowRect(AppBarData.hwnd, WRect);
if (WRect.top > 0) then Edge := ABE_BOTTOM
else
if (WRect.bottom < screen.height) then Edge:=ABE_TOP
else
if WRect.right < screen.width then Edge:=ABE_LEFT
else
Edge:=ABE_RIGHT;
end;
{---}
begin
try
R:= Rect(Screen.DesktopLeft, Screen.DesktopTop,
Screen.DesktopWidth, Screen.DesktopHeight);
DetectTaskBar;
case Edge of
ABE_LEFT: begin
R.Left:= Screen.DesktopLeft + Clrect.Right + 4;
R.Right:= Screen.DesktopWidth - R.Left - 4;
end;
ABE_TOP: begin
R.Top:= Screen.DesktopTop + Clrect.Bottom + 4;
R.Bottom:= Screen.DesktopHeight - R.Top - 4;
end;
ABE_RIGHT: R.Right:= Screen.DesktopWidth - Clrect.Right - 4;
ABE_BOTTOM: R.Bottom:= Screen.DesktopHeight - Clrect.Bottom - 4;
end;//case
except
R:= Rect(Screen.DesktopLeft, Screen.DesktopTop,
Screen.DesktopWidth, Screen.DesktopHeight);
Edge:= ABE_BOTTOM;
end;
← →
Rim (2004-02-13 19:48) [9]Я начинающий. А эти процедуры работают? Объясните как их применить.
← →
DDA © (2004-02-13 20:25) [10]У меня дак REgShot показал вот что:XP
Измененные параметры:1
----------------------------------
HKEY_USERS\S-1-5-21-2025429265-813497703-854245398-1003\Software\Microsoft\Internet Explorer\Desktop\Components\0\Position: 2C 00 00 00 CC 00 00 00 00 00 00 00 34 03 00 00 A2 02 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00
HKEY_USERS\S-1-5-21-2025429265-813497703-854245398-1003\Software\Microsoft\Internet Explorer\Desktop\Components\0\Position: 2C 00 00 00 77 01 00 00 00 00 00 00 89 02 00 00 00 03 00 00 00 00 00 00 01 00 00 00 01 00 00 00 01 00 00 00 00 00 00 00 00 00 00 00
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.038 c