crear una carpeta/directorio desde delphi

[eyscom]

Hola a todos creo que lo que estoy preguntando es muy elemental pero no puedo crear una carpeta en el disco duro desde mi aplicacion delphi. Gracias ;)

[jafl1965]

De la Unidad SysUtils

If not DirectoryExists('Mi Dir') then
CreateDir('Mi Dir') ;

[acertij022]

Tambien podes usar el comando MKdir()

If not DirectoryExists('Mi Dir') then
MKdir('Mi Dir') ;
:D

[MeTaL]

Algo interesante Seria.....

var Archivo:String;
begin
Archivo:='Midir';
if createdir(archivo) = false then begin
label1.caption:='Carpeta '+archivo+' Creada Con Exito';
End else
label1.caption:='No se Pudo Crear Carpeta '+archivo;
end.

[JoseSagas]

como se haria para que la carpeta saliera en un lugar especifico? por ejemplo quiero que salga en el desktop de la maquina

[ecfisa]

como se haria para que la carpeta saliera en un lugar especifico? por ejemplo quiero que salga en el desktop de la maquina
Hola Jose.


MkDir(GetEnvironmentVariable('USERPROFILE') + '\Desktop\' + 'Nombre_De_Tu_Carpeta');


Saludos.

[ecfisa]

Hola de nuevo.

Perdón, recién me doy cuenta que estamos en el foro API de Windows, entonces sería:

var
Nombre: string;
begin
Nombre:= 'Nombre_De_La_Carpeta';
CreateDirectory(PChar(GetEnvironmentVariable('USERPROFILE') + '\Desktop\' + Nombre), 0);
...


Saludos.