TWindowInfo

TWindowInfo = packed record
  Pos: Integer;
  Type: Integer;
  Modified: Integer;
  Current: Integer;
  TypeName: array[0..63] of char;
  Name: array[0..Pred(NM)] of char;
end;
PWindowInfo = ^TWindowInfo;