program big_del;
var
file1,file2:file; f1,f2:string; m1,m2:longint;
begin
f1:=ParamStr(1);
f2:=ParamStr(2);
Assign(file1, f1);
Reset(file1);
Assign(file2, f2);
Reset(file2);
m1:=filesize(file1);
m2:=filesize(file2);
close(file1);
close(file2);
if m1<=m2 then Erase(file2) else Erase(file1);
end.
Если что: прога берет названия фалов из двух параметров и удаляет тот из них, размер которого больше. То бишь "big_del.exe -notepad.exe -winxp.iso" - уйдет есс-но второй
Жду здесь: <...>
Заранее спасибо.
Читаем правила... Ты пришел на форум - общайся на форуме...
--
Админ, ты мыло от url'а отличаешь?
Сообщение отредактировано: nagim -