Velikost pracovní plochy

Private Type RECT
   Left As Long
   Top As Long
   Right As Long
   Bottom As Long
End Type

Private Const SPI_GETWORKAREA = 48

Private Declare Function SystemParametersInfo Lib "user32" _
   Alias "SystemParametersInfoA" (ByVal uAction As Long, _
   ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) _
   As Long


Na formulář přidejte tlačítko. Na událost Click tlačítka:

Private Sub Command1_Click()

   Dim lRet As Long
   Dim apiRECT As RECT

   lRet = SystemParametersInfo(SPI_GETWORKAREA, vbNull, apiRECT, 0)

   If lRet Then
      Print "Pracovní plocha - levá: " & apiRECT.Left
      Print "Pracovní plocha - vrchol: " & apiRECT.Top
      Print "Pracovní plocha - šířka: " & apiRECT.Right - apiRECT.Left
      Print "Pracovní plocha - výška: " & apiRECT.Bottom - apiRECT.Top
   Else
      Print "Volání funkce SystemParametersInfo selhalo."
   End If

End Sub   

Zpět