comeheres

摘要： procedure TForm.ButtonClick(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; 阅读全文