| |
| |
|
 |
Descripción:
GetLogicalDriveStrings ermittelt el Rootverzeichnisse aller en el Sistema vorhandenen Laufwerke.
Deklaration:
Def @GetLogicalDriveStrings(2) !KERNEL32,GetLogicalDriveStringsA
Parámetro:
 1.Parámetro: El maximale Anzahl el Buchstaben en Parámetro 2 (sin abschließendes Nullbyte).
2.Parámetro: Bereichsvariable, el el vorhandenen Laufwerke en Folgender Form aufnimmt:
a: Nullbyte b: Nullbyte c: Nullbyte d: ….. Nullbyte Nullbyte
Rückgabewert:
0 en Fehler, ansonsten el número el Buchstaben, el en el Bereichsvariable geschrieben fueron.
Beispiele:
KompilierenMarcaSeparaciónDef @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 redactar
[/keywords:1d44e4bde1] |
|
| |
| |
| |
|
(908)
Deutsch
English
Français
Español
Italia