procedure TForm1.Button1Click(Sender: TObject); var hEdit: HWND; str: string; begin str := ‘准备要添加到记事本的字符串‘; WinExec(‘Notepad.exe‘, SW_SHOWNORMAL); hEdit := GetWindow(GetForegroundWindow, GW_CHILD); SendTextMessage(hEdit, WM_SETTEXT, 0, str); end;
参考:http://www.cnblogs.com/del/archive/2009/11/12/1601703.html
时间: 2024-09-26 20:09:15