Von Thomas Hölzer am 18 April, 1998 um 01:00:53:
Antwort auf: Seriennumer einer Diskette schreiben von Thomas Kurz am 18 April, 1998 um 00:15:43:
Hallo Namensvetter,
für die 30 Mark kannst Du Dir was anderes gönnen.
Dieses Listing erledigt die Sache. Wegen fehlender Fehlerbehandlung sollte eine nicht schreibgeschützte Diskette sollte im Laufwerk sein. Der Name darf 11 Zeichen nicht überschreiten.
Viel Spaß!
Thomas
DEF SetVolumeLabel(2) !"KERNEL32","SetVolumeLabelA"
declare Path#,Name#
dim path#,4
dim Name#,8
string Path#,0=Add$("A:\",Chr$(0))
string name#,0=Add$("Profan",Chr$(0))
cls
print "Bitte leere formatierte Diskette in Laufwerk A einlegen"
print "Danach weiter mit beliebiger Eingabe"
waitinput
IF SetVolumeLabel(path#,name#)
print "OK"
else
print "Fehler"
EndIf
dispose path#
dispose name#
waitinput