Язык:
Русский
English
{ Пример программы для процедуры RemoveDir }
uses WinCrt, WinDos;
const Remove : PChar = 'C:\NEWDIR';
begin
RemoveDir(Remove);
WriteLn('Каталог ', Remove, ' удалён.');
end.
const Remove : PChar = 'C:\NEWDIR';
begin
RemoveDir(Remove);
WriteLn('Каталог ', Remove, ' удалён.');
end.