如何打开记事本并显示指定内容

时间：2014-11-26 06:35:46 阅读：148 评论：0 收藏：0 [点我收藏+]

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

如何打开记事本并显示指定内容

标签：blog http ar for on div log html ad

原文地址：http://www.cnblogs.com/findumars/p/4122333.html

踩

(0)

评论一句话评论（0）