crear carpetas en android

[amorones]

Hola buenas tardes, estoy haciendo una aplicación para Android en Delphi XE7, y necesito crear una carpeta en el directorio raíz del dispositivo, agradecería mucho si me pudieran orientar como se puede crear una carpeta en Android con Delphi.

[Neftali [Germán.Estévez]]

Pues más o menos puedes hacerlo como en Windows.
Revisa la ayuda sobre la Clase TPath, que te servirá para acceder a directorios del sistema y a partir de ahí, por ejemplo puedes usar un ForceDirectories para crear una carpeta.

Revisa este link, por ejemplo:
http://docwiki.embarcadero.com/Libra...th.GetHomePath

[amorones]

Gracias Neftalí, revisare la ayuda y el link que me pasaste, si me queda alguna duda, podría volver a preguntar?

Un saludo...

[Casimiro Notevi]

Empezado por amorones

... si me queda alguna duda, podría volver a preguntar?

Claro, sigue preguntando aquí mismo si no lo solucionas.

[amorones]

Listo, muchas gracias por tu ayuda Neftalí, ya pude solucionar el problema, adjunto el código que me funciono por si a alguien mas le sirve:

Código Delphi [-]
 if forcedirectories(P) then
                 ShowMessage('Nuevo directorio creado') else
                 ShowMessage('Fallo al crear directorio nuevo, error : '+ IntToStr(GetLastError));

[amorones]

Una disculpa, este es el código completo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
  P: String;
  Sr : TSearchRec;
begin
  P := '/storage/sdcard0/Prueba/';
      if forcedirectories(P) then
     ShowMessage('Se creo la carpeta "Partituras"') else
     ShowMessage('Fallo al crear directorio nuevo, error : '+ IntToStr(GetLastError));
end;