Çift Ekran Kullanmak

çetin beyin bir zamanlar formayazdıgı kodu hatırladım ve buraya tekrar yazayım ben deneme fırsatı bulamadım siz denersiniz

*** Author: Cetin Basoz

#Define MONITORINFOF_PRIMARY 0x01
#Define MONITOR_DEFAULTTONEAREST 0x02
#Define MONITOR_DEFAULTTONULL 0x00
#Define MONITOR_DEFAULTTOPRIMARY 0x01

#Define SM_CMONITORS           80 && number of monitors
#Define SM_CXSCREEN             0 && Screen width in pixels
#Define SM_CYSCREEN             1 && Screen height in pixels
#Define SM_CXFULLSCREEN         16 && Client area width
#Define SM_CYFULLSCREEN         17 && Client area height
#Define SM_CXVIRTUAL         17 && Client area height
Declare Integer GetSystemMetrics In Win32API  Integer nIndex

Declare Integer MonitorFromPoint In WIN32API Integer x, Integer Y, Integer dwFlags
Declare Integer GetMonitorInfo In win32API Integer hMonitor, String @ lpmi

? "Monitors",GetSystemMetrics(SM_CMONITORS)

lpmi = BinToC(40,'4RS')+Replicate(Chr(0),36)
hMonitorDefault = MonitorFromPoint( 0,0, MONITOR_DEFAULTTONEAREST)

Create Cursor monitors (Left i, Top i, Width i, Height i, isdefault l)
For ix=-5000 To 5000 Step 5000
    For iy=-5000 To 5000 Step 5000
        hMonitor = MonitorFromPoint( m.ix,m.iy, MONITOR_DEFAULTTONEAREST)
        GetMonitorInfo(hMonitor, @ lpmi)
        Insert Into monitors (Left,Top,Width,Height,isDefault) Values (;
            CTOBIN(Substr(m.lpmi, 4+1+ 0, 4),"4RS"), ;
            CTOBIN(Substr(m.lpmi, 4+1+ 4, 4),"4RS"), ;
            CTOBIN(Substr(m.lpmi, 4+1+ 8, 4),"4RS"), ;
            CTOBIN(Substr(m.lpmi, 4+1+12, 4),"4RS"), ;
            m.hMonitor = m.hMonitorDefault)
    Endfor
Endfor
SELECT distinct * FROM monitors