Как прочитать информацию из мэйл агента

[samets]

Здравствуйте. Может быть кто нибудь подскажет, как прочитать список мэйлов из агента?
Окно "Результаты пойска"
Вот код:
h:hwnd;
i,k:integer;
buffer:array [0..20] of char;
char:PWideChar;
begin
h:=FindWindow(nil,'Результаты поиска');
label1.Caption:=inttostr(h);
h:=FindWindowEx(h,0,'MAKFC_ListBox' ,nil);
label2.Caption:=inttostr(h);
i:=SendMessage(h,LB_GETCOUNT,0,0);
label3.Caption:=inttostr(i);
i:=50;
for k:=0 to i-1 do begin
SendMessage(h,WM_GETTEXT,k,integer( @buffer));
ListBox1.Items.Add(string(buffer));
end

Но ничего не получается, в листбоксе ересь одна или ничего.
Как сделать, очень надо!

[Пепел Феникса]

вы используете неверное сообщение.
ищите сообщение с индексом LB_ (может LB_GETITEMTEXT или подобное) и действуйте через него.