Section courante

A propos

Section administrative du site

GETCURDIR

Demande le répertoire courant
Turbo Pascal 7+ WinDos

Syntaxe

Function GetCurDir(D:PChar;Disk:Byte):PChar;

Paramètres

Nom Description
D Ce paramètre permet de retourner le répertoire courant
Disk Ce paramètre permet d'indiquer l'unité de disque souhaité :
Valeur Description
0 Cette valeur permet d'indiquer l'unité de disque courante
1 Cette valeur permet d'indiquer l'unité de disque A:
2 Cette valeur permet d'indiquer l'unité de disque B:
3 Cette valeur permet d'indiquer l'unité de disque C:
4 Cette valeur permet d'indiquer l'unité de disque D:
5 Cette valeur permet d'indiquer l'unité de disque E:
6 Cette valeur permet d'indiquer l'unité de disque F:
7 Cette valeur permet d'indiquer l'unité de disque G:
8 Cette valeur permet d'indiquer l'unité de disque H:
9 Cette valeur permet d'indiquer l'unité de disque I:
10 Cette valeur permet d'indiquer l'unité de disque J:
11 Cette valeur permet d'indiquer l'unité de disque K:
12 Cette valeur permet d'indiquer l'unité de disque L:
13 Cette valeur permet d'indiquer l'unité de disque M:
14 Cette valeur permet d'indiquer l'unité de disque N:
15 Cette valeur permet d'indiquer l'unité de disque O:
16 Cette valeur permet d'indiquer l'unité de disque P:
17 Cette valeur permet d'indiquer l'unité de disque Q:
18 Cette valeur permet d'indiquer l'unité de disque R:
19 Cette valeur permet d'indiquer l'unité de disque S:
20 Cette valeur permet d'indiquer l'unité de disque T:
21 Cette valeur permet d'indiquer l'unité de disque U:
22 Cette valeur permet d'indiquer l'unité de disque V:
23 Cette valeur permet d'indiquer l'unité de disque W:
24 Cette valeur permet d'indiquer l'unité de disque X:
25 Cette valeur permet d'indiquer l'unité de disque Y:
26 Cette valeur permet d'indiquer l'unité de disque Z:

Description

Cette fonction permet de connaitre le répertoire courant de l'unité spécifié sous format d'une chaine de caractères ASCIZ.

Exemple

Voici quelques exemples typiques de l'utilisation de cette fonction :

  1. Program GetCurDirSamples;
  2.  
  3. Uses WinDos;
  4.  
  5. Var P:Array[Byte]of Char;
  6.  
  7. BEGIN
  8.  ChDir('C:\WINDOWS');
  9.  WriteLn('Repertoire courante = ',GetCurDir(@P,0));
  10. END.

on obtiendra le résultat suivant si le répertoire «C:\WINDOWS» existe :

Repertoire courante = C:\WINDOWS

Voir également

Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - GETDIR

Dernière mise à jour : Dimanche, le 25 janvier 2015