|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Работа с Блокнотом
Delphi 7. Операционная система Windows 7. Запущен Блокнот и свернут. Имеется в буфер обмене текст. Надо создать программу с одной кнопкой. Когда нажимаем на кнопку, программа должна найти свернутый Блокнот, программно нажать на второй пункт в Меню в Блокноте ("Правка"), потом во втором пункте нажать на четвертый пункт("Вставить"). Вот и всё.
Заранее спасибо. |
#2
|
||||
|
||||
Я бы попробовал через FindОкноуEx, WM_COPY, WM_PASTE. Без меню, вообщем.
Пишу программы за еду. __________________ |
#3
|
|||
|
|||
[quote=NumLock]Я бы попробовал через FindОкноуEx, WM_COPY, WM_PASTE. Без меню, вообщем.[/QUOTЕ]
Тогда я бы не писал столько вещей. |
#4
|
||||
|
||||
Сделал через 3 функции: FindWindow, FindWindowEx, SendMessage. Текст из буфера обмена вставляется в Блокнот.
Пишу программы за еду. __________________ |
#5
|
|||
|
|||
Напишите исходник. И пусть прога делает, то что я написал пожалуйста...
|
#6
|
||||
|
||||
Код:
var hNotepad: THandle; hEdit: THandle; begin hNotepad:=FindWindow('Notepad', nil); if hNotepad=0 then raise Exception.Create('!Notepad'); hEdit:=FindWindowEx(hNotepad, 0, 'Edit', nil); if hEdit=0 then raise Exception.Create('!Edit'); SendMessage(hEdit, WM_PASTE, 0, 0); end; Пишу программы за еду. __________________ Последний раз редактировалось NumLock, 06.02.2015 в 18:12. |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
Radamant (06.02.2015)
|
#7
|
|||
|
|||
Хорошо. А как работать тогда с Меню в чужих окнах? Как нажимать на них?
|
#8
|
||||
|
||||
WM_COMMAND
Пишу программы за еду. __________________ |