[ixMike]

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