WorkAreaLeft avec une DLL, sans passer par SysInfo.ocx

Voici la solution :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    Type WinRECT
        Left As Long
        Top As Long
        right As Long
        bottom As Long
    End Type
    Private Declare Function SystemParametersInfo Lib "user32" _
        Alias "SystemParametersInfoA" (ByVal uAction As Long, _
        ByVal uParam As Long, ByRef lpvParam As WinRECT, _
        ByVal fuWinIni As Long) As Long
    Private Const SPI_GETWORKAREA = 48
...
...
'        WaLeft = CiDess.PC_Info.WorkAreaLeft
'        WaTop = CiDess.PC_Info.WorkAreaTop
'        WaWidth = CiDess.PC_Info.WorkAreaWidth
'        WaHeight = CiDess.PC_Info.WorkAreaHeight
        Call SystemParametersInfo(SPI_GETWORKAREA, 0, wr, 0)
        WaLeft = wr.Left * Screen.TwipsPerPixelX
        WaTop = wr.Top * Screen.TwipsPerPixelY
        WaWidth = (wr.right - wr.Left) * Screen.TwipsPerPixelX
        WaHeight = (wr.bottom - wr.Top) * Screen.TwipsPerPixelY