Mega Code Archive

 

Categories / Delphi / Files

 

Create a directory

Title: create a directory? 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;