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

Добавить комментарий
Имя:
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)
	Пожалуйста, введите проверочный код, который Вы видите на картинке.