Re: Seriennumer einer Diskette schreiben


[ Nachträge ] [ Nachtrag schicken ] [ Profan² News Board ]

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




Nachträge:



Nachtrag schreiben

Name:
E-Mail:

Subject:

Nachricht:

Link Adresse:
Link Titel:
Bild Adresse:


[ Nachtrag ] [ Nachtrag schreiben ] [ Profan² News Board ]