RmDir.PAS

Language:
Русский
English

  {RmDir.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the RmDir procedure.}

  uses WinCrt;

  begin
    {$I-}
    { Get directory name from command line }
    RmDir(ParamStr(1));
    if IOResult <> 0 then
      Writeln('Cannot remove directory')
    else
      Writeln('directory removed');
  end.

Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //