Article View: de.comp.lang.pascal
Article #25Re: Seriennummer eines Datentraegers?
From: Tom Wellige
Date: Wed, 10 Apr 1996 18:43
Date: Wed, 10 Apr 1996 18:43
69 lines
3356 bytes
3356 bytes
----------------------------------------------------------------------------
-------------------------------------------------- Bielefeld, Mi 10.04.96 --
----------------------------------------------------------------------------
mgu wrote on 08.04.96 about
"Seriennummer eines Datentraegers?":
MG> wie kann ich die Seriennummer eines Datentraegers (FDD/HDD/CD),
MG> die z.B. beim Formatieren angezeigt wird, mittels eines DOS-/
MG> WIN3.1-/ WIN95- Programms (Programmiersprache egal) ermitteln?
Regelmaessig mitlesen oder in der Pascal-FAQ nachschaun, die hier immer
wieder gepostet wird. Ich gehoere ja wirklich nicht zu den Leuten, die
gleich los flamen, aber wenn ein und die gleiche Frage jede Woche einmal
kommt, dann zeugt das von einer verkehrten Einstellung zu diesem Brett.
Hier sollte es in meinen Augen ein "Geben und Nehmen" geben. D.h. man sollte
auch ruhig mal einen Blick hier rein werfen, wenn man gerade nichts sucht,
um evtl. auch selbst mal Hilfe leisten zu koennen. Wenn man hier
allerdings regelmaessig reinschaut, dann stellt sich zumindest diese eine
Frage sehr bald nicht mehr, denn wie gesagt, in letzer Zeit kam sie quasi
woechentlich.
BTW: ich habe durch einfaches "mitlesen" wirklich schon eine Menge
gelernt ! Nur so kann man seinen Horizont erweitern: lesen, lesen, lesen.
Da ich jedoch zu den Leuten gehoere, die gerne helfen, werde ich Dir die
Antwort jetzt nicht vorenthalten. Ich moechte Dich aber bitten, mal ueber
meine Worte nachzudenken.
Im 1 Sektor jeder Diskette bzw. Festplatte findet sich die Nummer die Du
suchst. Das folgende stammt auch nicht original von mir, sondern ich habe es
beim "mitlesen" aufgeschnappt.
------------ Schnipp --------------------
var sektor : array[1..512] of byte;
procedure readbootblock(Drive : byte); assembler; {0=A: 1=B: usw.}
asm
mov al, Drive
mov cx, 1
mov dx, 0
mov bx, seg SEKTOR
mov ds, bx
mov bx, offset SEKTOR
int $25
end;
Ab dem Byte 40 findest du dann in SEKTOR 4 Bytes (ein LongInt), die die
Datentraegernummer enthalten.
------------ Schnipp --------------------
MG> Vielen Dank im vorraus.
Jederzeit wieder :-))
See you, Tom.
----------------------------------------------------------------------------
-- Tom Wellige ---------------- EMail: (BBS DISTEL in Dieburg, Germany) ----
-- Haller Weg 64 ---------------- PICARD@distel.RoBIN.de -------------------
-- 33617 Bielefeld, GERMANY ------------------------------------------------
-- Dipl.Ing.(FH) NT ----------- HPShell Info Server: -----------------------
-- PGP key on request ----------- HPSHELL@distel.RoBIN.de Subj.: HELP -----
----------------------------------------------------------------------------
Technical Details
Message-ID:
<66cPbraMbxB@picard.distel.robin.de>Path:
arc1-ca.pugleaf.net!PICARD.DISTEL.robin.de!picardReferences:
<4kb576$re8@narses.hrz.tu-chemnitz.de>Show Full Headers
Complete Article Headers
X-Mailer: CrossPoint v3.11 R/C6598 Message-ID: <66cPbraMbxB@picard.distel.robin.de> Organization: Tom Wellige SoftWare References: <4kb576$re8@narses.hrz.tu-chemnitz.de> X-Gateway: ZCONNECT UU distel.robin.de [DUUCP vom 01.07.1994] MIME-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 8bit From: picard@distel.robin.de (Tom Wellige) Subject: Re: Seriennummer eines Datentraegers? Date: 10 Apr 1996 19:43:00 +0100 Path: arc1-ca.pugleaf.net!PICARD.DISTEL.robin.de!picard Newsgroups: de.comp.lang.pascal,de.comp.lang.c,de.comp.lang.c++ Distribution: world