|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите, вставка текста в другую программу
Меняется название окна , а нужно заполнение Edit
Код:
program Project1; uses SysUtils, windows, dialogs, controls, messages; var s: pchar; h,h1: HWND; begin s:= 's11'; h := FindWindow(nil,'хендл программы'); h1 := FindWindowEx(h1, 0, 'EDIT', 'хендл программы'); SendMessage(h1, WM_SETTEXT, 0, LongInt(PCHAR(s))); end. |