怎样把字符串变量值放入记事本中？

Question

我想应该有两种方法：
一、把StringList中的数据存入临时文件，再用记事本打开，关闭记事本后再删除临时文件；
二、把StringList中的数据放到剪接板中，打开记事本，向记事本发送消息，粘贴数据。

Answer 1

var :TStringList;
t.SaveToFile('c:\t.txt');

Answer 2

sorry,误解了，没看到记事本要打开，同意xclxd的办法

Answer 3

xclxd(小虾)，
1：把StringList中的数据应该用什么命令放到剪接板中？
2：打开记事本后，怎样向记事本发送消息，粘贴数据？

Answer 4

可以直接向一个打开的记事本发送WM_SETTEXT消息，不通过剪贴板
var
  Form1: TForm1;
  AimWindow : HWND;procedure TForm1.Button1Click(Sender: TObject);
var Wnd : HWND;
    Buf : array [0..256] of char;
    St : TStringList;
begin
   St.Text:='ABC';
   AimWindow := FindWindow( nil,'无标题 - 记事本');
   if AimWindow <> 0 then begin
   Wnd := GetWindow(AimWindow, GW_CHILD);
   if Wnd <> 0 then
      SendMessage(Wnd, WM_SETTEXT, 0,LongInt(PChar(St.Text)));
  end;
end;

Answer 5

请问：
1、我能否不用AimWindow := FindWindow( nil,'无标题 - 记事本')； 而用类似于
AimWindow :=WinExec(......)的方法吗？
2、如何修改记事本上显示的文件标题？
  

Answer 6

赫赫,你是担心标题会改变?那就用查找类名的方法乐.
AWindow:=FindWindow('Notepad',nil);