怎么从程序中往记事本中写东西

我如何从一个文本框中写到记事本中一些内容!

解决方案 »

  1.   

    你的记事本打开了吗？保存文件不是更方便些嘛，用savetofile就行了
      

  2.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      d,m:THandle;
    begin
      d:=FindWindow('NotePad',nil);
      m:=FindWindowEx(d,0,'Edit',nil);
      showmessage(inttostr(d));
      sendmessage(m,wm_settext,0,integer(pchar('dasdfasdf')));
    end;
      

  3.   

    如果只是要保存的文本文件
    fileopen
    reset
    write
    writeln
    closefile
    如果要在打开的记事本中实现这种功能的话
    首先要FindWindow找到记事本的窗口句柄
    在SendMessage.....具体查一下Windows消息吧
      

  4.   

    给你个最简单的
    memo1.cuttoclipboard;
    然后找到你要写入的txt窗口的handle
    sendmessage发送wm_paste消息就可以了
      

  5.   

    呵呵..保存成TXT文件不就得了嘛..唉..
    READLN和WRITELN
      

  6.   

    呵呵。看看这个。
    http://expert.csdn.net/Expert/topic/1652/1652833.xml?temp=.9447748
      

  7.   

    实际上就是对TextFile做处理了
    先Assign
    再ReWrite
    最后CloseFile