24.06.2009, 12:54
|
Новичок
|
|
Регистрация: 01.06.2009
Сообщения: 80
Репутация: 10
|
|
Запись чата ICQ
У меня на ПК стоит ICQ. Ну так вот мне нужно записывать весь мой чат в txt файл. Пробовал так, но не вышло.
Код:
var
H, PageHandle, TabHandle, REHandle: THandle;
lpBuffer: PChar;
begin
H := FindWindow(nil, PChar('ICQ'));
if H <> 0 then
begin
PageHandle := FindWindowEx(H, 0, 'SysTabControl32', nil);
if PageHandle <> 0 then
begin
TabHandle := FindWindowEx(PageHandle, 0, '#000605CC',nil);
if TabHandle <> 0 then
begin
REHandle := FindWindowEx(TabHandle, 0, 'RichEdit20A', nil);
if REHandle <> 0 then
begin
lpBuffer := GetMemory(1024);
try
SendMessage(REHandle, WM_GETTEXT, 1024, Integer(lpBuffer));
RichEdit1.Text := lpBuffer;
finally
FreeMemory(lpBuffer);
end;
Для определения иерархии, использую WinSpy++
|