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