type
  TMonInfo = record
    h:  THandle; // хэндл окна рабочего стола
    dc: HDC;     // DC рабочего стола
    r:  TRect;   // Координаты рабочего стола
  end;
 
var MonList: array of TMonInfo; // список дисплеев
 
implementation
 
function EnumDisplayMonitors(dc: HDC; rect: PRect; EnumProc: pointer; lData: LPARAM): BOOL; stdcall; external user32;
function MonitorEnumProc(hMonitor: THandle; hdcMonitor: HDC; lprcMonitor: DWORD; dwData: LPARAM): BOOL; stdcall;
type PRect = ^TRect;
var c: integer;
begin
  c := High(MonList)+1; SetLength(MonList, c+1);
  MonList[c].h := hMonitor;
  MonList[c].dc := hdcMonitor;
  MonList[c].r := PRect(lprcMonitor)^;
  result := true;
end;
 
initialization
  EnumDisplayMonitors(0, nil, Addr(MonitorEnumProc), 0); // заполнить массив
 
finalization
 
end.

  for i := 0 to High(MonList) do
  with MonList[i] do
    ...

Добавить новый Поиск

Анонимно   2008-05-18 21:07:46 Цитата 0   0

Анонимно - re: (   2010-01-19 22:02:34 Анонимно написано: hock:' /> извини конечно но, помоему это мало кого интересует ( кстати а вообще классный сайт) Цитата 0   0

Alyunya   2010-05-02 09:51:59 Alyunya не чего по моему.но для общего развития надо знать! Цитата 0   0

ArtGrek   2011-01-11 08:47:31 мне пригодилось Спасибо автору Цитата 0   0

Алексей - примерчик по проще   2011-09-04 02:06:53 var i : integer: ... i := Screen.MonitorCount; вполне достаточно. Цитата 0   0

комментарии
Имя:
E-mail:	не уведомлятьуведомлять
Заголовок:
UBB-Код:	-цвет-морская волна (aqua)чёрный (black)голубой (blue)фуксия (fuchsia)серый (gray)зелёный (green)лайм (lime)красно-коричневый (maroon)тёмно-синий (navy)оливковый (olive)пурпурный (purple)красный (red)серебрянный (silver)бирюзовый (teal)белый (white)жёлтый (yellow) -размер-крошечный (x-small)маленький (small)средний (medium)большой (large)огромный (x-large)
	Пожалуйста, введите проверочный код, который Вы видите на картинке.