| |
| |
|
 |
Beschreibung:
GetLogicalDriveStrings ermittelt qui Rootverzeichnisse aller im System vorhandenen Laufwerke.
Deklaration:
Def @GetLogicalDriveStrings(2) !KERNEL32,GetLogicalDriveStringsA
paramètre:
 1.paramètre: qui maximale Nombre de Buchstaben dans paramètre 2 (sans abschließendes Nullbyte).
2.paramètre: Bereichsvariable, qui qui vorhandenen Laufwerke dans Folgender forme aufnimmt:
a: Nullbyte b: Nullbyte c: Nullbyte d: ….. Nullbyte Nullbyte
Rückgabewert:
0 chez faute, ansonsten le nombre qui Buchstaben, qui dans qui Bereichsvariable geschrieben wurden.
Beispiele:
KompilierenMarqueSéparationDef @GetLogicalDriveStrings(2) !"KERNEL32","GetLogicalDriveStringsA"
Declare Drives#,I%,D$
Dim Drives#,120
@GetLogicalDriveStrings(119,Drives#)
String DRIVES#,0=@Translate$(@CHAR$(Drives#,0,119),@CHR$(0),",")
LET I%=1
While @SubStr$(@String$(Drives#,0),I%,",")<>""
Let d$=@SubStr$(@String$(Drives#,0),I%,",")
ADDSTRING d$
inc I%
wend
Dispose Drives#
@ListBox$("Laufwerke",22>)
[keywords:1d44e4bde1]
Laufwerke Festplatte auflisten listen Laufwerksliste erstellen
[/keywords:1d44e4bde1] |
|
| |
| |
| |
|
(946)
Deutsch
English
Français
Español
Italia