|| function RemoveDir ( const Dir : string ) : Boolean;
Описание:
Delphi функция RemoveDir удаляет папку
из текущей папки.
Если удаление прошло успешно,
тогда возвращаеться true, в противном случае - ошибка GetLastError.
Пример кода:
begin
// Create a new directory in the
current directory
if CreateDir('TestDir')
then
ShowMessage('New directory added OK')
else ShowMessage('New
directory add failed with error : '+
IntToStr(GetLastError));
// Remove this directory
if RemoveDir('TestDir')
then
ShowMessage('TestDir removed OK')
else ShowMessage('TestDir
remove failed with error : '+
IntToStr(GetLastError));
end;