3 replies to this topic

[agag4]

Buenas tardes, alguien sabe como activar la opción de windows para ocultar la barra de tareas automaticamente desde delphi ?? lo que ocupo es decirle en el oncreate de mi aplicación como activar esa opcion, y en el evento OnClose desActivar esa misma opción, ya investigue e hice pruebas pero solo lo oculta pero no deja usar el espacio de la barra de tareas, estas son las pruebas que hice:

delphi

hTaskbar := FindWindow('Shell_TrayWnd', Nil);
 ShowWindow(hTaskbar, SW_HIDE);

delphi

ShowHideTaskBAndStartBtn(False);

 
Alguien sabe como hacerlo por registro de windows ??
 
gracias...

[agag4]

Ya lo encontre, por si a alguien le sirve quedaria asi:

delphi

const
 ABM_SETSTATE = $0000000a;
 
procedure AutoHideTaskBar(aAutoHide: Boolean);
var
 BarData: TAppBarData;
 dwState, dwNewState: DWord;
begin
 FillChar(BarData, SizeOf(BarData), 0);
 BarData.cbSize := SizeOf(BarData);
 dwState := SHAppBarMessage(ABM_GETSTATE, BarData);
 if aAutoHide then
   dwNewState := dwState or ABS_AUTOHIDE
 else
   dwNewState := dwState and not ABS_AUTOHIDE;
 if dwState <> dwNewState then begin
   BarData.lParam := dwNewState;
   SHAppBarMessage(ABM_SETSTATE, BarData)
 end
end;

[enecumene]

Gracias por el aporte.

[sir.dev.a.lot]

Bien, Excelente .... necesitaba algo de eso

 

Saludos!