用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;