FiveTech Support Forums

MsgInfo( "In Clipper Prog" )
::oRect := CRect():New( GetWorkRect(), 'Options',,, .t. ) // SPI_GETWORKAREA

#include <extend.api>
#include <ClipApi.h>
// #include <WinSock.h>
#include <fwmsgs.h>

typedef struct _RECT {
    LONG left;
    LONG top;
    LONG right;
    LONG bottom;
} RECT;

BOOL
SystemParametersInfoA(
    UINT uiAction,
    UINT uiParam,
    PVOID pvParam,
    UINT fWinIni);


/*
 * GetWorkRect() 
 *
 * Wrapper to SystemParametersInfo(SPI_GETWORKAREA,...
 * Retrieves the size of the work area on the primary display monitor.
 * The work area is the portion of the screen not obscured by the system taskbar
 * or by application desktop toolbars. The pvParam parameter must point to a RECT
 * structure that receives the coordinates of the work area, expressed in virtual
 * screen coordinates.
 */

CLIPPER GETWORKREC()     // -->  { nTop, nLeft, nBottom, nRight }
{
   RECT rct;
   rct.top    = 0;
   rct.left   = 0;
   rct.bottom = 0;
   rct.right  = 0;

   #define SPI_GETWORKAREA            48
   SystemParametersInfoA(SPI_GETWORKAREA,0,&rct,0);

   hb_reta( 4 );
   _storni( rct.top,    (WORD)-1, 1 );
   _storni( rct.left,   (WORD)-1, 2 );
   _storni( rct.bottom, (WORD)-1, 3 );
   _storni( rct.right,  (WORD)-1, 4 );
}

c:\dev\pcr5>link @KEYLESS\build\pcrHBH.lnk /nologo /subsystem:windows /force:multiple /NODEFAULTLIB:libcmt /LIBPATH:C:\HarbourM\lib  /OUT:C:\DEV\PCR5\KEYLESS\EXE\HB\PCREGW.EXE 
hbrtl.lib(tgetint.obj) : warning LNK4006: _HB_FUN_GETNEW already defined in FiveHM.lib(TCLIPGET.obj); second definition ignored
hbw32.lib(win_dll.obj) : warning LNK4006: _HB_FUN_CALLDLL already defined in FiveHCM.lib(CALLDLL.obj); second definition ignored
CPCREG.OBJ : error LNK2001: unresolved external symbol _HB_FUN_GETWORKRECT
COPYDATA1.obj : error LNK2001: unresolved external symbol "int __cdecl SystemParametersInfoA(unsigned int,unsigned int,void *,unsigned int)" (?SystemParametersInfoA@@YAHIIPAXI@Z)
C:\DEV\PCR5\KEYLESS\EXE\HB\PCREGW.EXE : fatal error LNK1120: 2 unresolved externals

#include "FiveWin.ch"

function Main()

   local oDlg, ;
         aRect := GetWorkRect()

   DEFINE DIALOG oDlg From 00,00 to 400,500 TITLE "Work Rect" PIXEL OF oDlg COLORS CLR_BLACK,CLR_WHITE

   @  10, 10 SAY "1=" + cValToChar( aRect[ 1 ] ) OF oDlg SIZE 50, 10 PIXEL
   @  20, 10 SAY "2=" + cValToChar( aRect[ 2 ] ) OF oDlg SIZE 50, 10 PIXEL
   @  30, 10 SAY "3=" + cValToChar( aRect[ 3 ] ) OF oDlg SIZE 50, 10 PIXEL
   @  40, 10 SAY "4=" + cValToChar( aRect[ 4 ] ) OF oDlg SIZE 50, 10 PIXEL

   ACTIVATE DIALOG oDlg CENTERED

Return nil

#pragma BEGINDUMP
#include <Windows.h>
#include <ClipApi.h>
#include <WinUser.h>

BOOL WINAPI SystemParametersInfoA( UINT uiAction, UINT uiParam, PVOID pvParam, UINT fWinIni) ;

/*
 * GetWorkRect()
 *
 * Wrapper to SystemParametersInfo(SPI_GETWORKAREA,...
 * Retrieves the size of the work area on the primary display monitor.
 * The work area is the portion of the screen not obscured by the system taskbar
 * or by application desktop toolbars. The pvParam parameter must point to a RECT
 * structure that receives the coordinates of the work area, expressed in virtual
 * screen coordinates.
 */

HB_FUNC( GETWORKRECT )     // -->  { nTop, nLeft, nBottom, nRight }
{
   RECT rct;
   rct.top    = 0;
   rct.left   = 0;
   rct.bottom = 0;
   rct.right  = 0;

   SystemParametersInfoA( SPI_GETWORKAREA, 0, &rct, 0 ) ;

   hb_reta( 4 );
   _storni( rct.top,    -1, 1 );
   _storni( rct.left,   -1, 2 );
   _storni( rct.bottom, -1, 3 );
   _storni( rct.right,  -1, 4 );
}
#pragma ENDDUMP