type
    LPTSTR = uint16
    HWND = int

proc EnumWindowsProc(hwnd: HWND, lParam: LPARAM): WINBOOL{.stdcall.}  =
  var window_text: array[256, LPTSTR]
  var window_class_name: array[256, LPTSTR]
  if (IsWindowVisible(hwnd)):
    GetWindowText(hwnd, addr window_text[0], 255);
    GetClassName(hWnd, addr window_class_name[0], 255);
    echo hwnd
    echo "win text"
    echo window_text
    echo window_class_name
  return TRUE

EnumWindows((WNDENUMPROC)EnumWindowsProc, LPARAM(0))