Új directory

Új directory létrehozása

Új directoryt hozhatunk létre az alábbi módon, és a "{$I-}" arra kell, hogy ha már van olyan directory, akkor ne akadjon le a program.

procedure TForm1.Button1Click(Sender: TObject);
begin
{$I-}
mkdir('c:\wawa');
{$I+}
if ioResult=0 then kész else rossz'
end;