Скачать: CL | DM;

Чужой 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.035 c