Cette procédure permet de connaitre le répertoire courant de l'unité spécifié avec une chaîne de caractères de format standard Pascal.
Procedure GetDir(D: Byte; var S: string);