ついに、これだけの記述で、Enumなんとかをfor..inで使える形にラップできるようになりました。 type TWindowEnumerator = class(TEnumerator) function GetCurrent: HWND; property Current: HWND read GetCurrent; end; TEnumWindows = record function Ge…