작업표시줄3 [Delphi] 작업표시줄 시계부분 위치찾기 작업표시줄 위치에 상관없이시계부분에 팝업을 띄우기 위해서 var h: HWND; WorkRect: TRect; BarData: TAppBarData; begin h := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'TrayNotifyWnd', nil); GetWindowRect(h, &WorkRect); BarData.HWND := 0; BarData.cbSize := sizeof(BarData); SHAppBarMessage(ABM_GETTASKBARPOS, BarData); case BarData.uEdge of 0: // ABE_LEFT begin self.Left := WorkRect.Right; self.Top := WorkRect.Bottom - .. 2013. 7. 30. [Delphi] 작업표시줄 위치 찾기 uses shellapi; var pData: TAppBarData;begin pData.hWnd := 0; pData.cbSize := sizeof(pData); SHAppBarMessage(ABM_GETTASKBARPOS, pData); case pData.uEdge of 0: ShowMessage('ABE_LEFT'); 1: ShowMessage('ABE_TOP'); 2: ShowMessage('ABE_RIGHT'); 3: ShowMessage('ABE_BOTTOM'); end; end; 2013. 7. 22. [Delphi] 작업표시줄을 제외한 작업영역 구하기 오른쪽 하단에 팝업처럼 띄우기 var Rect: TRect; begin // 작업표시줄을 제외 한 영역 구하기 SystemParametersInfo(SPI_GETWORKAREA, 0, Pointer(@Rect), 0); Fm_Banner := TFm_Banner.Create(Self); Fm_Banner.Left := Rect.Right - Fm_Banner.Width; Fm_Banner.Top := Rect.Bottom - Fm_Banner.Height; end; 2011. 4. 1. 이전 1 다음