const
MY_MESSAGE = WM_USER + 4242;
var
wnd : HWnd;
msg : String;
begin
msg := 'SendMessage' ;
wnd := FindWindow('notepad', nil);
if wnd <> 0 then begin
SendMessage(wnd,MY_MESSAGE,0,DWORD(PChar(msg)));
end;
Сообщение
Народ как отправит из совей программы текс в другую программу
Например в Аську или в другой чат какой не будь ?
Например в Аську или в другой чат какой не будь ?
Цитата: user13
Народ как отправит из совей программы текс в другую программу
Например в Аську или в другой чат какой не будь ?
Например в Аську или в другой чат какой не будь ?
SendMessage
Я хочу чтобы из моей формы можно было послать текст в другу программу в поле ввода!
Я достал код но он не работает
Я достал код но он не работает
Код:
вот пример:
как видишь все почти также как и с нажатие клавиши: ищешь нужное окно, ищешь дочернее, посылаешь сообщение.
Код:
var wnd,cwnd:HWND;
begin
wnd:=FindWindow(pchar('notepad'),nil);
if wnd<>0 then
begin
cwnd:=FindWindowEx(wnd,0,pchar('Edit'),nil);
if cwnd<>0 then
begin
SendMessage(cwnd,WM_SETTEXT,0,LParam(pchar('Message')));
end;
end;
end;
begin
wnd:=FindWindow(pchar('notepad'),nil);
if wnd<>0 then
begin
cwnd:=FindWindowEx(wnd,0,pchar('Edit'),nil);
if cwnd<>0 then
begin
SendMessage(cwnd,WM_SETTEXT,0,LParam(pchar('Message')));
end;
end;
end;
как видишь все почти также как и с нажатие клавиши: ищешь нужное окно, ищешь дочернее, посылаешь сообщение.
тема закрыта, автору предупреждение: у вас уже 3 нарушения правила номер 10(читаем правила Делфи). всем кто отвечает нарушителю - устное предупреждение.
