向记事本发送信息.txt

来自「大量Delphi开发资料」· 文本 代码 · 共 9 行

procedure TForm1.Button1Click(Sender: TObject);
var
 H: HWND;
 p: pchar;
begin
 H := FindWindowEx(FindWindow(pchar('Notepad'),nil),0,pchar('Edit'),nil);
 p := pchar(memo1.Text);//中英文都是一样的
 SendMessage(H,WM_SETTEXT,Length(p),lParam(p));
end;