Здравствуйте, Аноним, Вы писали:
А>Как проверить, показывается ли у приложения кнопка на TaskBar?
function IsTaskbarBtnExist(h: HWND): Boolean;
var
exstyle: Longint;
begin
Result:= IsWindowVisible(h);
if Result then
begin
exstyle := GetWindowLong(h, GWL_EXSTYLE);
Result := exstyle and WS_EX_APPWINDOW <> 0;
if not Result and
(exstyle and WS_EX_TOOLWINDOW = 0) then
Result := GetWindowLong(h, GWL_HWNDPARENT) = 0;
end;
end;
Здравствуйте, Leonid Troyanovsky, Вы писали:
LT>Здравствуйте, Аноним, Вы писали:
А>>Как проверить, показывается ли у приложения кнопка на TaskBar?
LT>LT>function IsTaskbarBtnExist(h: HWND): Boolean;
LT>var
LT> exstyle: Longint;
LT>begin
LT> Result:= IsWindowVisible(h);
LT> if Result then
LT> begin
LT> exstyle := GetWindowLong(h, GWL_EXSTYLE);
LT> Result := exstyle and WS_EX_APPWINDOW <> 0;
LT> if not Result and
LT> (exstyle and WS_EX_TOOLWINDOW = 0) then
LT> Result := GetWindowLong(h, GWL_HWNDPARENT) = 0;
LT> end;
LT>end;
LT>
Спасибо огромнейшее, помогло!
