delphi多屏显示区域查找

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

delphi多屏显示区域查找
 1 unit EnumMonitor;
 2 
 3 interface
 4 uses
 5     MultiMon, windows;
 6 const
 7     MONITOR_MAX_COUNT = 10; //显示器个数上限
 8 
 9 var
10      //显示区域
11     gRects: array[0..MONITOR_MAX_COUNT - 1] of TRect;
12      //查找到的显示器个数
13     gMCount: Integer = 0;
14 
15 //刷新显示器信息
16 procedure RefreshMontor;
17 
18 implementation
19 
20 var
21     isFirst: Boolean = True; //是否是第一个,查找时用到
22 
23 function EnumMon(AMonitor: HMONITOR; ADC: HDC; ARect: PRect; AParam: LPARAM): Boolean; stdcall;
24 var
25     info: MONITORINFO;
26 begin
27     Result := True;
28      //如果显示器个数超过预设个数,停止查找
29     if gMCount >= MONITOR_MAX_COUNT then
30     begin
31         Result := false;
32         Exit;
33     end;
34 
35     info.cbSize := SizeOf(MONITORINFO);
36     GetMonitorInfo(AMonitor, @info);
37     //如果是主显示器,判断是不是第一次查找,如果是第二次,则结束查找
38     if(info.dwFlags = MONITORINFOF_PRIMARY)then
39     begin
40         if isFirst then
41         begin
42             isFirst := false;
43             gMCount := 1;
44             gRects[0] := info.rcMonitor;
45             Result := True;
46             Exit;
47         end
48         else begin
49             //标志复位
50             isFirst := true;
51             Result := false;
52         end
53     end;
54 
55     gRects[gMCount] := info.rcMonitor;
56     Inc(gMCount);
57 end;
58 
59 procedure RefreshMontor;
60 begin
61     gMCount := 0;
62     isFirst := true;
63     FillChar(gRects, SizeOf(gRects), 0);
64     EnumDisplayMonitors(0, nil, EnumMon, 0);
65 end;
66 
67 initialization
68    RefreshMontor;
69 
70 finalization
71     gMCount := 0;
72     FillChar(gRects, SizeOf(gRects), 0);
73 end.
EnumMonitor.pas

 

delphi多屏显示区域查找

上一篇:C#开发ActiveX控件及指纹采集


下一篇:Winodws安装系统时,通过安装磁盘进行分区