Von Richard Maurukas am 08 Januar, 1998 um 21:50:08:
Antwort auf: Label einer Diskette von Thomas Kurz am 21 Dezember, 1997 um 23:36:41:
: Da ich noch keine Antwort auf meine Frage vom 09.11.97 erhalten habe probiere ich es einfach nocheinmal.
Hallo Thomas und natürlich auch an alle ..Fans,
hier nun ein Programm, mit dem man das kann.
mfg
Richard
'Laufwerkseigenschaften mit Profan 32 Bit unter Win 95 ermitteln.
'1998 Richard Maurukas
'====================================================================
cls
def GetVolumeInfo(8) ! "Kernel32.dll","GetVolumeInformationA"
declare Laufwerk$
declare Laufwerk#
declare LWName#
declare LWNameLänge#
Declare LWSerNr#
declare MaxDatNamlänge#
declare DateiSystemFlag#
declare DateiSystemName#
declare DatSystemNamLänge#
declare test&
declare LWNamelänge&,DatsystemNamLänge&
dim Laufwerk#,104
dim LWName#,16
dim LwNameLänge#,4
dim LWSerNr#,16
dim DateisystemName#,255
dim DatsystemNamLänge#,1
dim MaxDatNamLänge#,1
dim Dateisystemflag#,1
let Laufwerk$="C:\"
string Laufwerk#,0=Laufwerk$
let LWNamelänge&=16
Let DatsystemNamLänge&=255
Let test&=GetvolumeInfo(Laufwerk#,LWName#,LWNameLänge&,\
LWSerNr#,MaxDatNamLänge#,DateiSystemFlag#,\
DateiSystemName#,DatSystemNamLänge&)
If test&
Print "Laufwerk :";String$(Laufwerk#,0)
Print "Laufwerksname :";String$(LWName#,0)
Print "LW-Serien Nummer DEZ :";long(LWSernr#,0)
Print "LW-Serien Nummer HEX :";add$(add$(left$(Hex$(long(LWSernr#,0)),4),"-"),\
right$(Hex$(long(LWSernr#,0)),4)
Print "Max. Dateinamenlänge :";Long(MaxDatNamLänge#,0)
Print "DateisystemName :";String$(DateiSystemName#,0)
Print "DateisystemFlag :";Byte(DateiSystemflag#,0)
else
print "Fehler beim Lesen"
endif
waitkey
dispose Laufwerk#
dispose LWName#
dispose LWNameLänge#
dispose LWSerNr#
dispose MaxDatNamlänge#
dispose DateiSystemFlag#
dispose DateiSystemName#
dispose DatSystemNamLänge#
end