SystemParameter sInfo

[David]

Hi,

I'm trying to use SystemParameter sInfo to get the desktop work area:

Private Declare Function SystemParameter sInfo Lib "user32" Alias
"SystemParamete rsInfoA" (ByVal uAction As Integer, ByVal uParam As Integer,
ByRef lpvParam As Integer, ByVal fuWinIni As Integer) As Integer

Dim rc As Rectangle

SystemParameter sInfo(SPI_GETWO RKAREA, 0, VarPtr(rc), 0)

but it returns the parameters in the "wrong" order, eg:

{System.Drawing .Rectangle}
Bottom: 1280
Empty: {System.Drawing .Rectangle}
Height: 0
IsEmpty: False
Left: 0
Location: {System.Drawing .Point}
Right: 994
Size: {System.Drawing .Size}
Top: 1280
Width: 994
X: 0
Y: 1280

where bottom should be 994 and right should be 1280. (I'm using the VarPtr
function that is around on the net, GCHandle etc).

If I redeclare SystemParameter sInfo as:

Private Declare Function SystemParameter sInfo Lib "user32" Alias
"SystemParamete rsInfoA" (ByVal uAction As Integer, ByVal uParam As Integer,
ByRef lpvParam As Rectangle, ByVal fuWinIni As Integer) As Integer

and say

SystemParameter sInfo(SPI_GETWO RKAREA, 0, rc, 0)

then the rc structure is populated correctly:

{System.Drawing .Rectangle}
Bottom: 994
Empty: {System.Drawing .Rectangle}
Height: 994
IsEmpty: False
Left: 0
Location: {System.Drawing .Point}
Right: 1280
Size: {System.Drawing .Size}
Top: 0
Width: 1280
X: 0
Y: 0

Two questions:

1) Why is there a difference between the two methods? I want to use the
first method if possible.
2) Is the second method a valid way of doing things, ie is it ok to have
multiple declarations?

Thanks.

David.

[Peter Proost]

Hi,

maybe the screen class can help you

for example: MsgBox(Screen.P rimaryScreen.Wo rkingArea().ToS tring)

hth Grtz Peter

--
Programming today is a race between software engineers striving to build
bigger and better idiot-proof programs, and the Universe trying to produce
bigger and better idiots. So far, the Universe is winning.

"David" <da*********@bt internet.com> schreef in bericht
news:d6******** **@nwrdmz02.dmz .ncs.ea.ibs-infra.bt.com...

Hi,

I'm trying to use SystemParameter sInfo to get the desktop work area:

Private Declare Function SystemParameter sInfo Lib "user32" Alias
"SystemParamete rsInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByRef lpvParam As Integer, ByVal fuWinIni As Integer) As Integer

Dim rc As Rectangle

SystemParameter sInfo(SPI_GETWO RKAREA, 0, VarPtr(rc), 0)

but it returns the parameters in the "wrong" order, eg:

{System.Drawing .Rectangle}
Bottom: 1280
Empty: {System.Drawing .Rectangle}
Height: 0
IsEmpty: False
Left: 0
Location: {System.Drawing .Point}
Right: 994
Size: {System.Drawing .Size}
Top: 1280
Width: 994
X: 0
Y: 1280

where bottom should be 994 and right should be 1280. (I'm using the VarPtr
function that is around on the net, GCHandle etc).

If I redeclare SystemParameter sInfo as:

Private Declare Function SystemParameter sInfo Lib "user32" Alias
"SystemParamete rsInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByRef lpvParam As Rectangle, ByVal fuWinIni As Integer) As Integer

and say

SystemParameter sInfo(SPI_GETWO RKAREA, 0, rc, 0)

then the rc structure is populated correctly:

{System.Drawing .Rectangle}
Bottom: 994
Empty: {System.Drawing .Rectangle}
Height: 994
IsEmpty: False
Left: 0
Location: {System.Drawing .Point}
Right: 1280
Size: {System.Drawing .Size}
Top: 0
Width: 1280
X: 0
Y: 0

Two questions:

1) Why is there a difference between the two methods? I want to use the
first method if possible.
2) Is the second method a valid way of doing things, ie is it ok to have
multiple declarations?

Thanks.

David.