| |
|
|
| Andreas Miethe
$H Windows.ph
Var Nums& = 1
CLS
Externe(User32.dll","EnumDisplayMonitors",~GetDC(0),0,ProcAddr("MonitorProc",4),0)
waitinput
end
Proc MonitorProc
parameters hMonitor&,hdcMonitor&,lprcMonitor&,dwData&
Imprimer "Monitor : "+Str$(Nums&)
Imprimer Long(lprcMonitor&,0)
Imprimer Long(lprcMonitor&,4)
Imprimer Long(lprcMonitor&,8)
Imprimer Long(lprcMonitor&,12)
Imprimer
Inc Nums&
ENDPROC$H Windows.ph
Var Nums& = 1
CLS
Externe(User32.dll","EnumDisplayMonitors",~GetDC(0),0,ProcAddr("MonitorProc",4),0)
waitinput
end
Proc MonitorProc
parameters hMonitor&,hdcMonitor&,lprcMonitor&,dwData&
Imprimer "Monitor : "+Str$(Nums&)
Imprimer Long(lprcMonitor&,0)
Imprimer Long(lprcMonitor&,4)
Imprimer Long(lprcMonitor&,8)
Imprimer Long(lprcMonitor&,12)
Imprimer
Inc Nums&
ENDPROC
|
|
|
| |
|
|