06.02.2015, 16:38
|
|
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
Код:
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;
__________________
Пишу программы за еду.
__________________
|