| |
| |
|
 |
Description:
GetLogicalDriveStrings determined The Rootverzeichnisse all in the system vorhandenen drives.
Deklaration:
Def @GetLogicalDriveStrings(2) !KERNEL32,GetLogicalDriveStringsA
Parameter:
 1.Parameter: The maximum Number of letters in Parameter 2 (without abschließendes Nullbyte).
2.Parameter: Memory-Variable, The The vorhandenen drives in Folgender shape aufnimmt:
a: Nullbyte b: Nullbyte c: Nullbyte d: ….. Nullbyte Nullbyte
Return Value:
0 with Error, otherwise The Number of letters, The into Memory-Variable written get.
Examples:
CompileMarkSeparationDef @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]
drives Festplatte List lists Laufwerksliste create
[/keywords:1d44e4bde1] |
|
| |
| |
| |
|
(942)
Deutsch
English
Français
Español
Italia