XProfan

English

p.specht

I have for "standalone"-pursued dezimale Integers uses. who absolutely with the moreover in windows.ph vordefinierten SM_Konstanten works wants (- then windows.ph integrate and the ~ not forget!), the finds a list with MSDN under "GetSystemMetrics". naturally gibt´s there also yet plenty More!
greeting

Compile Mark Separation

Window Title "GetSystemMetrics"
Def GetSystemMetrics(1) !"user32","GetSystemMetrics"
Font 2
cls
Print "                            SlowProcessor = ";~GetSystemMetrics(73)
Print " BootMode 0normal 1Failsafe 2Safe+Network = ";~GetSystemMetrics(67)
Print " Network present LSB = ";~GetSystemMetrics(63) & 1;", No. of Monitors = ";~GetSystemMetrics(80)
Print "         Width of primary display monitor = ";~GetSystemMetrics(0)
Print "                Heigth of primary monitor = ";~GetSystemMetrics(1)
Print "  WindowBorder px = ";~GetSystemMetrics(5);";  WindowBorder3D px = ";~GetSystemMetrics(45)
Print "                     MinWidth of a Window = ";~GetSystemMetrics(28)
Print "                      MinHeight of Window = ";~GetSystemMetrics(29)
Print "                    Heigth of CaptionArea = ";~GetSystemMetrics(4)
Print "                            MenubarHeight = ";~GetSystemMetrics(15)
Print "                    SM_CX-FIXED/DLG-FRAME = ";~GetSystemMetrics(7)
Print "     CursorWidth = ";~GetSystemMetrics(13);";       CursorHeight = ";~GetSystemMetrics(14)
Print "             ArrangeMinimizedWindows fashion = ";~GetSystemMetrics(56)
print
Print "                       MousePortInstalled = ";~GetSystemMetrics(19)
Print "                   Number of MouseButtons = ";~GetSystemMetrics(43)
Print "                VerticalScrollWheel Mouse = ";(~GetSystemMetrics(75)>0)
Print "              HorizontalScrollWheel Mouse = ";(~GetSystemMetrics(91)>0)
Print "          XP/Vista/Win7 Edition='Starter' = "; ~GetSystemMetrics(88)
Print "                   TabletPCSupport Active = ";~GetSystemMetrics(86)
Print "            windows4PenComputingInstalled = ";~GetSystemMetrics(41)
Print "             windows Media Center Edition = ";~GetSystemMetrics(87)
WaitInput
End