delphi :打开记事本并写入内容

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;