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

本文整理自网络，侵删。

 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; 

相关阅读 >>

Delphi idsmtp发送邮件的问题

Delphi 加载excel 导入数据库

Delphi 7中ado控件打开access数据库文件

Delphi 获取带分隔符字符串中的字段值

Delphi 如何将图片转换成文本

dbgrid导出excl表

Delphi 已经最小化的窗体如何让它自己还原？

Delphi 获取网页代码单元

Delphi �c 如何使用datasnap获取作为标头传递的标记？

Delphi 拖动文件到exe 打开 获取getcommandline命令行

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 如何打开记事本并显示指定内容