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
这种另存为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
一句一句的通过
Items.Add('...')进去
SaveToFile('c:\test.bat'); 保存为bat文件,
通过ShellExecute或者WinExec去执行 C:\test.bat文件!
assignfile(f,'C:\1.bat');
rewrite(f);
writeln(f,'@echo off');
writeln(f,'.....');
closefile(f);
winexec('C:\1.bat', SW_HIDE);