Delphi中如何根据所需生成bat?

来源：百度知道 编辑：UC知道 时间：2024/06/06 01:23:47
一个文本框，按“生成后”生成文本框内填写的内容，各式为.bat.

procedure TForm1.Button1Click(Sender: TObject);
var
s:TStringList;
begin
s:=TStringList.Create;
s.Add(edit1.Text);
s.SaveToFile(extractfilepath(application.exename)+'abc.bat');
showmessage('create file success')
freeandnil(s);
end;