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
hRichEdit, hHandleDesFensters : HWND;
Text : pchar;
len: Integer;
begin
SetLastError(0);
hHandleDesFensters := FindWindow(nil, 'MP Lounge 2');
if hHandleDesfensters <> 0 then
begin
hRichEdit:= FindWindowEx(hHandleDesFensters, 0, 'RichEdit20A', nil);
if hRichEdit <> 0 then
begin
len := SendMessage(hRichEdit, WM_GETTEXTLENGTH, 0, 0);
GetMem(Text, len+1);
try
try
SendMessage(hRichEdit, 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; |