08-11-2014, 09:31 PM
09-11-2014, 06:50 AM
PHP كود :
procedure PasteTo(const AHWND: HWND); begin PostMessage(AHWND, WM_PASTE, 0, 0); end; var notepad_hwnd, notepad_edit_hwnd: HWND; begin notepad_hwnd := FindWindow(nil, 'Untitled - Notepad'); if notepad_hwnd <> 0 then begin notepad_edit_hwnd := FindWindowEx(notepad_hwnd, 0, 'Edit', nil); if notepad_edit_hwnd <> 0 then PasteTo(notepad_edit_hwnd); end; end.