Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-04-2015
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.806
Poder: 22
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
No se cual es el parámetro que tienes que poner, pero si utilizas Folder=5 te da la ruta a Mis Documentos del usuario.

Código Delphi [-]
function GetSpecialFolderPath(Folder: integer; CanCreate: boolean): string;
var
  FilePath : array [0..MAX_PATH] of char;
begin
  /// Gets path of special system folders
  /// Call this routine as follows:
  /// GetSpecialFolderPath (CSIDL_PERSONAL, false)
  /// returns folder as result
  /// Ejemplo: CSIDL_PERSONAL = 05 = Mis Documentos

  SHGetSpecialFolderPath(0, @FilePath[0], FOLDER, CanCreate);
  Result := FilePath;
end;
Responder Con Cita
  #2  
Antiguo 14-04-2015
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.806
Poder: 22
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Aquí puedes ver los diferentes valoes para el parámetro Folder.

http://www.installmate.com/support/i...ons/csidls.htm

En principio deberás concatenar con CSIDL_PROFILE

Código Delphi [-]
var
  ruta : string;

[...]

// Obtengo ruta a carpeta de usuario
ruta := (GetSpecialFolderPath(40 {CSIDL_PROFILE}, 0);

// Me aseguro de que termine con separador de path
ruta := IncludeTrailingPathDelimiter(ruta);

// Concateno ruta Dropbox
ruta := ruta +  + 'Dropbox\FotoVehiculos';

// Si la ruta existe
if DirectoryExists(ruta) then
begin 
   FileListBox1.Directory := ruta;
   [...]
end
else
begin
   ShowMessage('No encuentro la ruta ' + ruta);
end;
Responder Con Cita
  #3  
Antiguo 14-04-2015
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 19.449
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
En este mensaje también tienes explicado esto mismo.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
acceder a carpeta remota con password chinchan C++ Builder 2 12-04-2011 13:33:59
Acceder a carpeta compartida en servidor Linux Faust Linux 19 05-01-2009 05:03:12
¿Como puedo acceder a una carpeta en otro PC? Alfredo Varios 6 04-12-2007 15:27:20
Acceder carpeta distinta a la que estamos. papulo PHP 5 24-08-2007 09:41:20
Acceder a una carpeta de un servidor lgarcia Varios 2 08-06-2007 18:22:05


La franja horaria es GMT +2. Ahora son las 02:20:00.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi