如上,或者在程序中动态建一个批处理文件,然后写入dos命令。
比如
var
FileName:string;
F:TextFile;
begin
FileName := 'C:\myfile.bat';
if not FileExists(FileName) then
begin
AssignFile(F,FileName);
Rewrite(F);
Writeln(F, 'del '+TempPath+'*.* /q');//写入批命令
..
..
CloseFile(F);
end;
WinExec(FileName,SW_HIDE);//执行
end;