又来送分啦！如何在DELPHI里实现DOS的操作？

Question

最简单的方法是：
       WinExec('del d:\*.txt',SW_MINIMIZE)
另一个方法是：
procedure Deltree(Path:String,type:String);
var
  sr: TSearchRec;
  FileAttrs: Integer;
begin
  if FindFirst(Path+'\*.'+type, FileAttrs, sr) = 0 then
  begin
      DeleteFile(Path+'\'+sr.FileName);
      while FindNext(sr) = 0 do
      begin
            DeleteFile(Path+'\'+sr.FileName);
      end;
      FindClose(sr);
   end;
end;
然后：调用 Deltree('D:','txt');
再一种方法即是上两位老兄所说的ShFileOperation

Answer 1

有是我们要执行的可能是外部命令
如:type C:\1.txt
用上边的两种方法就不能办到我提供第三种方法
step.1 建立批处理文件File1.bat
  如:
  //File1.bat
  type C:\1.txt
step.2 WinExec('File1.bat', SW_HIDE);
//////很简单嘛