скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

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



Оформил: 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;





Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook