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