[dec]

Hola roman,

Muchas gracias por tu interés y tu ayuda: todo salió a pedir de boca, como no podía ser de otro modo. Muy interesantes además los comentarios que realizas al hilo del problema que planteaba.

1. El porqué de SetLength

Efectivamente, el "SetLengh" parece ser que sobraba en este caso. Luego añadiré más sobre esto.

Esto creo que ya lo sabes pero hay que observar que le estás diciendo que la cadena va a ser siempre de tamaño MAX_PATH aun cuando ShGetSpecialFolderPath devuelva una cadena mucho menor (como en 'C:\Windows')

Bueno... no, en realidad no puedo decir que lo supiera: fue un copia y pega, poco más o menos, lo que me llevó al problema. En realidad he realizado algún "plugin" (librería, dll) para determinado programa que, efectivamente, trabaja con "PChar's" y estos tiene que ser liberados luego de usarse, pero, en todo caso, no puedo decir que entendiera el quid del asunto.

Más claro me queda (ahora que tú lo pones así) el que estaba utilizando el tamaño de "MAX_PATH", aun cuando esto, como se puede comprobar, no es necesario: de hecho no es necesario el "SetLengh".

La causa exacta de los errores que obtienes no la sé pero muy posiblemente tenga relación con esto que te explico: obtienes una cadena "demasiado" larga.

Desde luego yo tampoco conozco la causa exacta, pero, puesto que en realidad no se trataba de un error (o sí, pero, no), sino de cierto resultado no esperado en todos los casos (recuerdo que si trataba de comprobar la existencia de un directorio, aun con la "basura" de datos, todo parecía ir bien), efectivamente, todo indica que el problema residía en obtener una cadena demasiado larga, como dices.

Creo que una forma de solucionarlo sería usando un arreglo de caracteres para recibir el resultado de ShGetSpecialFolderPath:

Así es roman. Y el caso es que lo tuve "a punto": repasé un poco el Foro (no hace mucho se trató el tema de cómo averiguar el nombre de la computadora, por ejemplo, y no iba del todo mal desencaminado, creo) y encontré e intenté hacer algo así:

Código Delphi [-]
 (...)
 var
   buffer: array[0..MAX_PATH] of Char;
 begin
   SetLength(buffer, MAX_PATH);
   SHGetSpecialFolderPath(GetCurrentProcess, buffer,
     NumeroDirectorio(directorio), crear);
   Result := buffer;
 end;

Pero ese código "no compila". Provoca el error: "Constant object cannot be passed as var parameter"... todavía no tengo muy claro de qué se trata, pero, el error estaba en la instrucción mal usada: "SetLength". Esto, sin duda, pasa por copiar y pegar más de la cuenta y no saber lo que uno se trae entre manos.

Un arreglos de caracteres (basado en cero) es compatible tanto con un PChar como con un String. Windows no tiene problemas para uar el buffer declarado y la asignación Result := Buffer se encargará de la conversión apropiada a string.

Interesante roman. Personalmente, porque acaso no halla terminado con los "plugins" que antes mencioné que he hecho y aún haré, y tal vez lo que dices pueda servirme de algo y aun de algos: es cuestión de que me entre en esta cabecita, así de chiquitita.

Al margen de esto, me parece que no es correcto usar GetCurrentProcess como primer parámetro de ShGetSpecialFolderPath. El parámetro, según el SDK de Windows debe ser un identificador de ventana, no de un proceso.

Efectivamente. En realidad he usado lo tal porque en parte he basado "la clase" en cierta función incluída en la librería DelphiWorks en que se hace uso de "GetCurrentProcess" para algo, que, sin lugar a dudas, sería parecido... pero no me fijé lo suficiente como para ver que no era del todo válido para lo que pretendía hacer.

He pensado en cambiarlo por "GetActiveWindow", pero, puesto que no estoy muy seguro de obtener el resultado esperado, y además esta función, en caso de fallo devuelve "null" y acaso esto pueda causar problemas, he decidido, al menos por el momento, incluir un nuevo parámetro al único método de "TDirectoriosWindows", el cual solicita precisamente el "OwnerHandle" que precisa la función "SHGetSpecialFolderPath".

He visto en la "idea" publicada en el Grupo Albor por Francisco Charte referida en el hilo a que antes hacía mención que dicho autor hace uso del "Handle" del formulario en que utiliza la función "SHGetSpecialFolderPath" y, por el momento, en lugar de "GetActiveWindows", como digo, he preferido solicitar un parámetro similar, aunque tal vez esto sea cargar el mochuelo al potencial usuario de "TDirectoriosWindows"...

Bueno roman. Gracias de nuevo por todo. No podía esperar menos de ti ni de este lugar. Adjunto la unidad donde se implementa "TDirectoriosWindows" con las modificaciones comentadas y ya funcionando, al menos, sin el problema que ha originado este hilo.