capture inactive window

Code:
function EnumProcess(hHwnd: HWND; lParam : integer): boolean; stdcall;
var
  pPid : DWORD;
  title, ClassName : string;
begin

  if (hHwnd=NULL) then
  begin
    result := false;
  end
  else
  begin

    GetWindowThreadProcessId(hHwnd,pPid);

    SetLength(ClassName, 255);

    SetLength(ClassName,
              GetClassName(hHwnd,
                           PChar(className),
                           Length(className)));
    SetLength(title, 255);

    SetLength(title, GetWindowText(hHwnd, PChar(title), Length(title)));
    if leftStr(title, 5) = 'Nesto' then

    Form1.listbox1.Items.Add
      ('Class Name = ' + className +
       '; Title = ' + title +
       '; HWND = ' + IntToStr(hHwnd) +
       '; Pid = ' + IntToStr(pPid));
    Result := true;
  end;
end;

Code:

procedure TForm1.Button1Click(Sender: TObject);

  function EnumChildProc(AChild: HWND; AResult: TStrings): BOOL; stdcall;
  var
    ClassName: array[0..20] of Char;
  begin
    GetClassName(AChild, ClassName, SizeOf(ClassName));
    AResult.Add(ClassName);
    Result := True;
  end;

begin
  EnumChildWindows(Handle, @EnumChildProc, LPARAM(Memo1.Lines));
end;

Code:
procedure TForm1.Button1Click(Sender: TObject);

function EnumProc(wnd: HWND; Lines: TStrings): BOOL; stdcall;
var
  buf, Caption: array [0..255] of char;
begin
  Result := True;
  GetClassname(wnd, buf, 256);
  GetWindowText(wnd, Caption, 256);
  Lines.Add(Format('ID: %d, class: %s, caption: %s',
    [GetDlgCtrlID(wnd), buf, Caption]));
end;

begin
 EnumChildWindows(Handle, @EnumProc, Integer(memo1.Lines));
end;