Q&A

  • SHAppBarMessage로 작업표시줄을 자동숨김으로 설정...
procedure TForm1.Button1Click(Sender: TObject);

var

ABData: TAppBarData;

begin

FillChar(ABData, SizeOf(ABData), 0);

ABData.cbSize := SizeOf(ABData);

ABData.uEdge := ABE_BOTTOM;

ABData.lParam := Integer(True);

ABData.hWnd := FindWindow('Shell_TrayWnd', nil);

SHAppBarMessage(ABM_SETAUTOHIDEBAR, ABData);

end;



델파이 도움말을 찾아서 위와같이 코딩했는데요... 작업표시줄의 자동숨김 설정이 바뀌질 않는군요.. 도움 부탁드립니다

0  COMMENTS