Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Чужой TListView.

SarDoX © (2006-12-28 12:49:00)
procedure TForm1.Button2Click(Sender: TObject);
var
lvitem:LV_ITEM;
iItem, iSubItem:integer;
h: hWnd;
s:string;
Control: array [0..127] of char;
begin
h:=FindWindow(nil,PChar('Test'));
h:=GetWindow(h,GW_CHILD);
GetClassName(h,Control,SizeOf(Control));
while Control<>'TListView' do
begin
h:=GetWindow(h,GW_HWNDNEXT);
GetClassName(h,Control,SizeOf(Control));
if Control='TListView'
then
begin
SetLength(s,MAX_PATH);
ZeroMemory(@lvitem,sizeof(LV_ITEM));
lvitem.mask:= LVIF_TEXT;
lvitem.iSubItem:=iSubItem;
lvitem.pszText:=@s[1];
lvitem.cchTextMax:=MAX_PATH-1;
lvitem.cchTextMax:=SendMessage(h,LVM_GETITEMTEXT,iItem,LPARAM(@lvitem));
if lvitem.cchTextMax>0 then
begin
SetLength(s,lvitem.cchTextMax+1);
inc(lvitem.cchTextMax);
SendMessage(h,LVM_GETITEMTEXT,iItem,LPARAM(@lvitem))
end else s:='';
memo1.Lines.Add(s);
end;
end;
end;

SarDoX (2006-12-29 15:05:00) [1]
пасибки, будем ковыряться.... :)

Лёля (2006-12-29 14:41:00) [2]
Доброго времени суток!
Тут я недавно вопрос подобный задавала, посмотри мое решение.
Кстати, в TabControl чужого приложения я поступала так же. Работает.
http://www.delphimaster.ru/cgi-bin/forum.pl?n=5&id=1166436548

SarDoX (2006-12-29 10:38:00) [3]
ну так мне кто-нибудь поможет?

SarDoX (2006-12-28 15:17:00) [4]
ну мне нужно выдрать текст из чужого приложения. компонент - TListView.

Real (2006-12-28 14:56:00) [5]
для ответа - нужна последняя версия телепатора видимо :)

SarDoX (2006-12-28 12:50:00) [6]
где ошибка?..
сам контрол находит, а вот дальше..

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »