Delphi programozói környezetben tudnátok segíteni?

Szia.

"MkDir" Delphi Help :

"

Creates a new subdirectory.

Unit

System

Category

IO routines

Delphi syntax:

procedure MkDir(const S: string); overload;

procedure MkDir(P: PChar); overload;

C++ syntax:

extern PACKAGE void __fastcall MkDir(const AnsiString S);

extern PACKAGE void __fastcall MkDir(char *P);

Description

MkDir creates a new subdirectory with the path specified by string S or P. The last item in the path cannot be an existing file name.

Note: In Delphi, {$I+} handles runtime errors using exceptions. When using {$I-}, use IOResult to check for an I/O error."

Delphi EXample :

"uses Dialogs;

begin

{$I-}

{ Get directory name from TEdit control }

MkDir(Edit1.Text);

if IOResult <> 0 then

MessageDlg('Cannot create directory', mtWarning, [mbOk], 0, mbOk)

else

MessageDlg('New directory created', mtInformation, [mbOk], 0, mbOk);

end;"