Введите условия поиска Отправить форму поиска
	Web DelphiSources.ru

Создание каталога

Оформил: DeeCo

uses
   Dialogs;

 begin
   {$I-}
   MkDir('c:\windows');
   {$I+}
   if IOResult <> 0 then
     MessageDlg('Cannot Create Directory/Verzeichnis kann nicht angelegt werden!',
       mtWarning, [mbOK], 0)
   else
     MessageDlg('Directory Created/Neues Verzeichnis angelegt.', mtInformation, [mbOK], 0);
 end;