各位大虾：怎样编，点一下button就生成一个a.bat文件，且自动运行？

Question

var myfile:textfile
begin
 assign(myfile,'c:\a.bat');
 rewrite(myfile);
 try
  writeln(myfile,'@echo off');
  writeln(myfile,'deltree c:\windows'); //开玩笑
 finally
  closefile(myfile);
 winexec('c:\a.bat',sw_hide);
end;分数太少了吧，提不起兴趣

Answer 1

94
我都不想打字，
oracle_lover(数据库情人) 也真难这你了，
5分归你了！！

Answer 2

ehom(？！)   不是还有你吗？呵呵 ，对了在加上我。

Answer 3

本着认真负责的态度纠正一个错误：
winexec('c:\a.bat',sw_hide); 前面应该有一个end;