Чужой TListView.

← →
SarDoX (2006-12-28 12:49) [0]

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-28 12:50) [1]

где ошибка?..
сам контрол находит, а вот дальше..

← →
Real © (2006-12-28 14:56) [2]

для ответа - нужна последняя версия телепатора видимо :)

← →
SarDoX (2006-12-28 15:17) [3]

ну мне нужно выдрать текст из чужого приложения. компонент - TListView.

← →
SarDoX (2006-12-29 10:38) [4]

ну так мне кто-нибудь поможет?

← →
Лёля (2006-12-29 14:41) [5]

Доброго времени суток!
Тут я недавно вопрос подобный задавала, посмотри мое решение.
Кстати, в TabControl чужого приложения я поступала так же. Работает.
http://delphimaster.net/view/4-1166436548/

← →
SarDoX (2006-12-29 15:05) [6]

пасибки, будем ковыряться.... :)

Чужой TListView. Найти похожие ветки