dephi中怎样把多条dos语句写入记事本中,并把记事本重命名bat格式的,自动保存到c盘,并自动执行bat文件通过一个按钮来实现或者直接把多条dos语句写入,通过一个按钮来点击就能出现和bat运行的样子,如
这种另存为bat格式的,双击就可以,怎么样在dephi中实现,能帮给出代码更好,谢谢@echo off
echo 正在清理系统垃圾文件,请稍等......
del /f /s /q %systemdrive%\*.tmp
del /f /s /q %systemdrive%\*._mp
del /f /s /q %systemdrive%\*.log
del /f /s /q %systemdrive%\*.gid
del /f /s /q %systemdrive%\*.chk
del /f /s /q %systemdrive%\*.old
del /f /s /q %systemdrive%\recycled\*.*
del /f /s /q %windir%\*.bak
del /f /s /q %windir%\prefetch\*.*
rd /s /q %windir%\temp & md %windir%\temp
del /f /q %userprofile%\cookies\*.*
del /f /q %userprofile%\recent\*.*
del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*"
del /f /s /q "%userprofile%\Local Settings\Temp\*.*"
del /f /s /q "%userprofile%\recent\*.*"
echo 清理系统垃圾完成!
echo. & pause 

解决方案 »

  1.   

    把这些命令添加到一个stringList中SaveToFile( 'c:\1.bat' );WinExec('c:\1.bat',SW_SHOWNORMAL);
      

  2.   

    创建一个TStringList;
    一句一句的通过
    Items.Add('...')进去
    SaveToFile('c:\test.bat');  保存为bat文件,
    通过ShellExecute或者WinExec去执行 C:\test.bat文件!
      

  3.   

    也可这么写:
    assignfile(f,'C:\1.bat');
      rewrite(f);
      writeln(f,'@echo off');
      writeln(f,'.....');
      closefile(f);
      winexec('C:\1.bat', SW_HIDE);