delphi多屏显示区域查找

      windows下多屏支持一个简单的思路就是找到显示器的区域（EnumDisplayMonitors），并把相应的窗口移动到目标区域（windows API: MoveWindow）。下面是一个简单的查找显示区域方法，gRects为查找到的显示区域，gMCount为查找到的个数。

unit EnumMonitor;

interface
uses
    MultiMon, windows;
const
    MONITOR_MAX_COUNT = 10; //显示器个数上限

var
     //显示区域
    gRects: array[0..MONITOR_MAX_COUNT - 1] of TRect;
     //查找到的显示器个数
    gMCount: Integer = 0;

//刷新显示器信息
procedure RefreshMontor;

implementation

var
    isFirst: Boolean = True; //是否是第一个，查找时用到

function EnumMon(AMonitor: HMONITOR; ADC: HDC; ARect: PRect; AParam: LPARAM): Boolean; stdcall;
var
    info: MONITORINFO;
begin
    Result := True;
     //如果显示器个数超过预设个数，停止查找
    if gMCount >= MONITOR_MAX_COUNT then
    begin
        Result := false;
        Exit;
    end;

    info.cbSize := SizeOf(MONITORINFO);
    GetMonitorInfo(AMonitor, @info);
    //如果是主显示器，判断是不是第一次查找，如果是第二次，则结束查找
    if(info.dwFlags = MONITORINFOF_PRIMARY)then
    begin
        if isFirst then
        begin
            isFirst := false;
            gMCount := 1;
            gRects[0] := info.rcMonitor;
            Result := True;
            Exit;
        end
        else begin
            //标志复位
            isFirst := true;
            Result := false;
        end
    end;

    gRects[gMCount] := info.rcMonitor;
    Inc(gMCount);
end;

procedure RefreshMontor;
begin
    gMCount := 0;
    isFirst := true;
    FillChar(gRects, SizeOf(gRects), 0);
    EnumDisplayMonitors(0, nil, EnumMon, 0);
end;

initialization
   RefreshMontor;

finalization
    gMCount := 0;
    FillChar(gRects, SizeOf(gRects), 0);
end.