|
#1
|
|||
|
|||
Запись чата 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; |