Re: Reducing screen size in Win7?

new topic     » goto parent     » topic index » view thread      » older message » newer message

It may be worth trying the following, which I have used on Windows XP. I can see nothing on the Microsoft site that suggests that it may no longer work in Windows 7.

The function gives the coordinates of the {Left, Top, Right, Bottom} of the screen work area without the task bar, even if it is moved. The constants used are defined in win32lib. 

global function getScreenWorkArea() 
sequence Srect 
atom WA = allocate(SIZEOF_RECT) 
    w32Func(xSystemParametersInfo,{SPI_GETWORKAREA,0,WA,0}) 
    Srect = peek4u({WA,4}) 
    free(WA) 
    return Srect 
end function

Alternatively, on Windows XP I can also create a window using: 

Win1 = create(Window,"Caption",0,0,w32Edge,w32Edge,0)
new topic     » goto parent     » topic index » view thread      » older message » newer message

Search



Quick Links

User menu

Not signed in.

Misc Menu