{With FindWindow, GetWindowRect }type
TTaskBarPos = (_TOP, _BOTTOM, _LEFT, _RIGHT, _NONE);
function GetTaskBarPos: TTaskBarPos;
var
hTaskbar: HWND;
T: TRect;
scrW, scrH: integer;
begin
hTaskBar := FindWindow("Shell_TrayWnd", nil);
if hTaskbar <> 0 thenbegin
GetWindowRect(hTaskBar, T);
ScrW := Screen.Width;
ScrH := Screen.Height;
if (T.Top > scrH div 2) and (T.Right >= scrW) then
Result := _BOTTOM
elseif (T.Top < scrH div 2) and (T.Bottom <= scrW div 2) then
Result := _TOP
elseif (T.Left < scrW div 2) and (T.Top <= 0) then
Result := _LEFT
else// the last "if" is not really needed if T.Left >= ScrW div 2 then
Result := _RIGHT;
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
var
TaskBarPos: TTaskBarPos;
begin
TaskBarPos := GetTaskBarPos;
case TaskBarPos of
_LEFT: ShowMessage("Left Position");
_TOP: ShowMessage("Top Position");
_RIGHT: ShowMessage("Right Position");
_BOTTOM: ShowMessage("Bottom Position");
end;
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Определить позицию панели задач 2", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!