Окна [D6, Win95/98, WinME]
BuBuS © (2002-11-19 23:16:00)
Имеется окно в нем Edit1 можно ли из другой программы добавить
информацию в Edit1
SCHMaster (2002-11-20 02:52:00) [1]
Лови кусок кода ...
В качестве примера :)
procedure TForm1.Timer2Timer(Sender: TObject);
var
h : HWND;
n : integer;
s : string;
begin
h := WindowFromPoint(Mouse.CursorPos);
if h <> 0 then begin
n := SendMessage(h, WM_GETTEXTLENGTH, 0, 0) + 1;
S:="YES";
SetLength(s, n);
SendMessage(h, WM_SETTEXT, 0, Integer(s));
SendMessage(h, WM_CHAR, Ord(#13), 0);
end;
Наверх 
ЧАТ |
Орешник |
|
