XProfan

Français

p.specht

j'ai pour "standalone"-Betrieb dezimale Integers verwendet. qui absolument avec den en supplément dans Windows.ph vordefinierten SM_Konstanten travailler veux (- ensuite windows.ph einbinden et cela ~ pas oublier qc!), qui findet une liste chez MSDN sous "GetSystemMetrics". Bien sûr gibt´s là aussi encore viel plus!
Gruss

Kompilieren Marque Séparation

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