ADDDISK |
Ajout d'un disque |
|---|---|
| Free Pascal | DOS |
Syntaxe
| Function AddDisk(Const path:String):Byte; |
Paramètres
| Nom | Description |
|---|---|
| path | Ce paramètre permet d'indiquer une représentation du chemin du disque ou du répertoire à ajouter. |
Description
Cette fonction permet d'ajouter une définition de disque à liste des unités (pour système d'exploitation compatible à UNIX seulement)
Exemple
Dans cet exemple, une fonction AddDisk de l'unité DOS en Free Pascal permet d'ajouter un chemin de disque et de retourner le numéro du lecteur assigné :
- Program AddDiskExample;
-
- {$mode objfpc}
- {$H+}
-
- Uses
- DOS;
-
- Var
- DriveNum:Byte;
- Path:String;
-
- BEGIN
- {$IFDEF LINUX}
- { Définir un chemin à ajouter comme disque }
- Path:='C:\Temp';
-
- { Ajouter le chemin comme un disque logique }
- DriveNum:=AddDisk(Path);
-
- { Vérifier si l'opération a réussi }
- If DriveNum <> 0 Then
- Writeln('Le chemin "', Path, '" a été assigné au lecteur ', Chr(DriveNum + Ord('A') - 1), ':')
- Else
- Writeln('Erreur lors de l''ajout du disque.');
- {$ENDIF}
- END.
Dernière mise à jour : Dimanche, le 23 Août 2020