Como crear una carpeta

[fdoterre]

hola les queria pedir si me podian decir comopuedo crear una carpeta de forma automatica sin que el usuario la tenga que crear, es para almacenar la clave de un programa, quiero que el archivo de la clave quede dentro de esa carpeta.

[dec]

Hola,

Código Delphi [-]
CreateDir('C:\nueva carpeta');

[[Bicho]]

Hola,

tan fácil como ésto:

Código Delphi [-]
uses Sysutils;

...

procedure CreaDirectorio(nombredir : String);
begin
   if not DirectoriExists(nombredir) then CreateDir(nombredir);
end;

Espero te sirva.

Saludos

EDITO: Se me ha adelantado David, ojo por ojo...

[dec]

Hola,

Donde las dan las toman...

Por cierto... al cabo "CreateDir" termina usando (en Windows) la función "CreateDirectory", que también podríamos usar nosotros directamente:

Código Delphi [-]
  if not CreateDirectory(PChar('C:\Nueva carpeta'), nil) then
    ShowMessage(SysErrorMessage(GetLastError));

[jymy788]

Por seguir con el hilo, CreateDir y CreateDirectory, que hacen lo mismo, no permite crear directamente la estructura de directorios de forma "recursiva", es decir, si yo hago CreateDir(PChar('c:\temp\kk')); no se crea el directorio C:\Temp\kk directamente.

Hay que programarse esto o hay alguna función extendida que lo haga

Saludos y perdón por la ignorancia

Gracias

[dec]

Hola,

Hay que programarse esto o hay alguna función extendida que lo haga

Creo que hablamos de ello esta mañana en otro Hilo. La función que buscas es "ForceDirectories" y se encuentra en la unidad "SysUtils.pas".

[jymy788]

eres un crack DEC.

Yo no participé en el hilo que comentas pero bueno, ya he aprendido algo más.

Solo me queda una cosa que preguntar:

Si yo hago lo siguiente

fileDir := 'c:\temp\kk';
CopyFile('aplicacion.exe', PChar(fileDir), true);

No se supone que busca aplicacion.exe en el directorio donde se está ejecutando la aplicación Dephi en ese momento y debería de hacer una copia de este fichero al directorio especificado en "fileDir" ??