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中获取字符串字节数？

Delphi 在 listbox 中放置一��可�� item 的 tedit �m件

Delphi xe 制作的萤光时钟，可改作屏保

Delphi xe android 使用system.zip单元释放资源文件

Delphi 实现程序 动态 类名

Delphi远程线程注入获取qq密码

Delphi xe 10.2.1 fmx平台 在图片上写字方法

Delphi中组件panel、splitter、groupbox、按钮组件（checkbox...）、计时器、滚动条、多选卡

Delphi 数字排序自动完成

Delphi topendialog设置多个过滤条件

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

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