delphi多屏显示区域查找

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

 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