Jo! Qué poca gente se anima,
Bueno, contaré otra:
Resulta que estaba yo maquinando cómo hacer una función o procedure para crear un directorio aunque el padre no existiera, es decir, crear "C:\archivos de programa\emp\soft" sin que existiera "emp". Tras tiempo dándole al bote llegué a esta conclusión:
Código Delphi
[-]
procedure MakeDir(dir: string);
begin
if DirectoryExists(ExtractFilePath(Dir))then
begin
MkDir(dir+'\');
exit;
end
else
repeat
MakeDir(ExtractFileDir(Dir));
until DirectoryExists(ExtractFilePath(Dir));
MkDir(Dir+'\');
end;
¡¡¡ Y al poco descubrí que existía ya en Delphi una función que hacía eso !!!
Por si alguien no la conoce, se llama ForceDirectories.
Bueno, a ver si alguien se anima
Salu2