Je, je, no recordaba cómo obtener el identificador de la barra. Con esa información, podemos usar este procedimiento:
Código Delphi
[-]
const
ABM_SETSTATE = 10;
procedure SetTaskBarAlwaysOnTop(OnTop: Boolean);
var
Data: TAppBarData;
State: Integer;
begin
ZeroMemory(@Data, SizeOf(Data));
Data.cbSize := SizeOf(Data);
State := ShAppBarMessage(ABM_GETSTATE, Data);
if OnTop then
State := State or ABS_ALWAYSONTOP
else
State := State and not ABS_ALWAYSONTOP;
Data.hWnd := FindWindow('Shell_TrayWnd', nil);
Data.lParam := State;
ShAppBarMessage(ABM_SETSTATE, Data);
end;
// Saludos