南域剑盟会员黑软编程课程        主讲：上兴   

今天学一下制作一个网页木马生成器，这是一个简单扼要的程序，但我们要学到

TextFile读写。
assignfile 函数 给文件变量赋一外部文件名。
ExtractFileDir(Application.Exename)
API函数，它的作用是得到当前程序的路径

文件建立，输出，关闭，也算是学到不少。哈哈，，，

procedure TForm1.Button1Click(Sender: TObject);
VAR f:TEXTfile;
    st:string;
    //点确定后把三个的Text相加 生成st.txt
begin
 assignfile(f,ExtractFileDir(Application.Exename)+'\ray.htm');
 st:=Edit2.Text+Edit1.Text +Memo2.Text;
 rewrite(f);     //建立
 writeln(f,st);  //输出
 closefile(f);  //关闭文件
end;

完成。。。

加个成功提示ShowMessage('成功！');

if Edit1.Text:='' then
ShowMessage('你没有填写！');