|
Тема |
Re: Подробности [re: Mиpo] |
|
Автор | MF2HD (Нерегистриран) | |
Публикувано | 11.09.03 00:48 |
|
|
Я пробваи с това :
procedure TForm1.Timer1Timer(Sender: TObject);
var p:Tpoint;
h:Thandle;
str:String;
i:integer;
begin
l1.Caption:='';
GetCursorPos(p);
h:=WindowFromPoint(p); //това ти е Thandle
SetLength(str,100);
GetClassName(h,Pchar(str),100) ;
l1.Caption:=str;
i:=SendMessage(h,wm_gettextlength,0,0);
setlength(str,i+1);
SendMessage(h,wm_gettext,i+1,Integer(str));
//това върши добра работа :))
label3.Caption:=str;
end;
Не е много елегантно но с SA dictionary върши работа.
Все пак е добре не само благодарности но и да искаш разрешение от авторите.
|
| |
|
|
|