XProfan

Español

p.specht

Yo habe para "standalone"-Betrieb dezimale Integers verwendet. Wer necesariamente con el dazu en Windows.ph vordefinierten SM_Konstanten trabajo voluntad (- entonces windows.ph einbinden y el ~ no vergessen!), el findet una Liste en MSDN bajo "GetSystemMetrics". Natürlich gibt´s hay auch todavía viel mehr!
Gruss

Kompilieren Marca Separación

Título de la ventana "GetSystemMetrics"
Def GetSystemMetrics(1) !"user32","GetSystemMetrics"
Font 2
cls
Imprimir "                            SlowProcessor = ";~GetSystemMetrics(73)
Imprimir " BootMode 0Normal 1Failsafe 2Safe+Network = ";~GetSystemMetrics(67)
Imprimir " Network present LSB = ";~GetSystemMetrics(63) & 1;", No. of Monitors = ";~GetSystemMetrics(80)
Imprimir "         Width of primary display monitor = ";~GetSystemMetrics(0)
Imprimir "                Heigth of primary monitor = ";~GetSystemMetrics(1)
Imprimir "  WindowBorder px = ";~GetSystemMetrics(5);";  WindowBorder3D px = ";~GetSystemMetrics(45)
Imprimir "                     MinWidth of a Ventana = ";~GetSystemMetrics(28)
Imprimir "                      MinHeight of Ventana = ";~GetSystemMetrics(29)
Imprimir "                    Heigth of CaptionArea = ";~GetSystemMetrics(4)
Imprimir "                            MenubarHeight = ";~GetSystemMetrics(15)
Imprimir "                    SM_CX-FIXED/DLG-FRAME = ";~GetSystemMetrics(7)
Imprimir "     CursorWidth = ";~GetSystemMetrics(13);";       CursorHeight = ";~GetSystemMetrics(14)
Imprimir "             ArrangeMinimizedWindows Mode = ";~GetSystemMetrics(56)
imprimir
Imprimir "                       MousePortInstalled = ";~GetSystemMetrics(19)
Imprimir "                   Number of MouseButtons = ";~GetSystemMetrics(43)
Imprimir "                VerticalScrollWheel Ratón = ";(~GetSystemMetrics(75)>0)
Imprimir "              HorizontalScrollWheel Ratón = ";(~GetSystemMetrics(91)>0)
Imprimir "          XP/Vista/Win7 Edition='Starter' = "; ~GetSystemMetrics(88)
Imprimir "                   TabletPCSupport Active = ";~GetSystemMetrics(86)
Imprimir "            Windows4PenComputingInstalled = ";~GetSystemMetrics(41)
Imprimir "             Windows Media Center Edition = ";~GetSystemMetrics(87)
WaitInput
End