Mega Code Archive

 

Categories / Delphi / Files

 

How to create a directory

Title: How to 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;