Créer un répertoire

uses Dialogs;

begin
{$I-}
MkDir('c:windoof');
if IOResult <> 0 then
MessageDlg('Le répertoire n'a pu être crée ! / Error', mtWarning,
[mbOk], 0)
else
MessageDlg('Répertoire crée. / Okay', mtInformation, [mbOk], 0);
end;

Voir également ForceDirectories & CreateDir