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;
注:SendTextMessage函数是delphi2010里新增加的函数,也就是说该段代码需要在delphi2010以上版本才可以编译通过。

上一篇: Delphi使用INDY获取计算机名和IP
下一篇: Delphi检测网络连接状态
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: Delphi 记事本 SendTextMessage
相关日志:
评论: 0 | 引用: 0 | 查看次数: -
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 开启 | [img]标签 关闭