Step by step

Folks,

For everybody that need to show something only on the useful area of the desktop I wrote this function:

 Delphi | 
 copy code |
?
 
1
function DesktopClientArea: TRect;
2
var
3
  rDesktop, rWinBar: TRect;
4
begin
5
  Windows.GetWindowRect(GetDesktopWindow, rDesktop);
6
  Windows.GetWindowRect(FindWindow('Shell_TrayWnd', nil), rWinBar);
7
  SubtractRect(Result, rDesktop, rWinBar);
8
end;

Hugs!

Tags: Delphi, DesktopArea, FindWindow, GetDesktopWindow, GetWindowRect, Shell_TrayWnd, SubtractRect, Usefull functions

This entry was posted on Monday, September 1st, 2008 at 8:12 pm and is filed under articles. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.