生成BAT文件

生成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;

获取一个文件夹下的所有文件
//不包括文件夹里面的文件
// 注意,path后面不要有要有'\';
//  Memo1.Lines := Searchfile('C:\Users\Admin\Desktop\名人格言\Win32\Release\Data');
function Searchfile(path: string): TStringList;
var
  SearchRec: TSearchRec;
  found: integer;
begin
  Result := TStringList.Create;
  found := FindFirst(path + '\' + '*.*', faAnyFile, SearchRec);
  while found = 0 do
  begin
    if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') and
      (SearchRec.Attr <> faDirectory) then
      Result.Add(SearchRec.Name);
    found := FindNext(SearchRec);
  end;
  FindClose(SearchRec);
end;