Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions

GETDIR	Demande un chemin
Delphi/Kylix/Lazarus	System

Syntaxe

Procedure GetDir(D:Byte; Var S:String);

Description

Nom	Description
S	Ce paramètre permet de retourner le répertoire courant
D	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 procédure permet de connaitre le répertoire courant de l'unité spécifié avec une chaine de caractères de format standard Pascal.

Exemple

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



				
Program GetDirSamples;

 
{$APPTYPE CONSOLE} 

Uses SysUtils;   

 
Var

 S:String;

             

BEGIN

 ChDir('C:\WINDOWS');

 GetDir(0,S);

 WriteLn('Repertoire courante = ',S);

END.

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

Repertoire courante = C:\WINDOWS

Voir également

Dernière mise à jour : Mercredi, le 18 février 2015

Section courante

A propos

Section administrative du site

GETDIR

Syntaxe

Description

Description

Exemple

Voir également