摘要:
type TO_MONITOR = class hm: HMONITOR; end;function EnumMonitorsProc(hm: HMONITOR; dc: HDC; r: PRect; Data: Pointer): Boolean; stdcall;var L: TList; M: TO_MONITOR;begin L := TList(Data); M := TO_MONITOR.Create; M.hm:= hm; L.Add(M); Result := True;end;procedure TFormVedio.FormShow(Sender:... 阅读全文