1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

procedure TForm1.Button1Click(Sender: TObject);  
var  
  hMemo, hHandleDesFensters : HWND;  
  Text : pchar;  
  len: Integer;  
begin  
  SetLastError(0);  
  hHandleDesFensters := FindWindow(nil, 'Name - Nachrichtensitzung');  
  if hHandleDesfensters <> 0 then  
  begin  
    hMemo:= FindWindowEx(hHandleDesFensters, 0, 'EDIT', nil);  
    if hMemo <> 0 then  
    begin  
      len := SendMessage(hMemo, WM_GETTEXTLENGTH, 0, 0);  
      GetMem(Text, len+1);  
      try  
        try  
          SendMessage(hMemo, WM_GETTEXT, len+1, Integer(@Text[0]));  
          ShowMessage(String(Text));  
        except  
          on E: EOutOfMemory do Messagebox(Handle, PChar(E.Message), 'Fehler', MB_ICONSTOP);  
        end;    
      finally  
        FreeMem(Text, len+1);    
      end;  
    end  
    else  
      Messagebox(Handle, PChar(SysErrorMessage(GetLastError)), 'Fehler', MB_ICONSTOP);  
  end  
  else  
    Messagebox(Handle, PChar(SysErrorMessage(GetLastError)), 'Fehler', MB_ICONSTOP);  
end;					

1:

 hMemo:= FindWindowEx(hHandleDesFensters, 0, 'EDIT', nil);					

1:

 hMemo:= FindWindowEx(hHandleDesFensters, 0, 'RichEdit20A', nil);