Доступ к StringGrid в чужой программе [D7, WinXP]
maxon © (2004-12-17 19:36:00)
Здравствуйте мастера.
Имеется такая вот проблема.
В чужой программе есть таблица StringGrid, мне необходимо
читать из ячеек данные и посылать туда свои,
как это сделать, дескриптор проги и таблицы узнал, а что
дальше делать, неизвестно
var Hnd :HWnd;
Wh:THandle;
WinClass: array [0..256] of Char;
begin
Hnd:=FindWindow(nil,pchar(edit1.Text));
if Hnd = 0 then begin
showmessage('Программа не запущена.');
exit;
end;
Wh:=GetWindow(Hnd,gw_Child); //ищем дочернее окно - таблицу
while Wh<>0 do begin
GetClassName(Wh,WinClass,255);
if WinClass='TStringGrid' then break;
Wh:=GetWindow(Wh,gw_hWndNext);
end;
end;
maxon (2004-12-19 08:52:00) [1]
Ответьте плиз. Очень нужен результат
Наверх 
ЧАТ |
Орешник |
|
