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') ;

[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]

Empezado por JoseSagas

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.

Código Delphi [-]
 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:

Código Delphi [-]
var
  Nombre: string;
begin
  Nombre:= 'Nombre_De_La_Carpeta';
  CreateDirectory(PChar(GetEnvironmentVariable('USERPROFILE') + '\Desktop\' + Nombre), 0);
  ...

Saludos.