Contributor: MICHAEL PHILLIPS
{> Can someone please post some code on how to read a disk label/serial> number from a disk. I plan to use it as a copy protection method (read> the label/serial number on installation and only the program to install> on a drive the same label/serial number) Thanks!
Do you realise that the serial number on a disk is changed when the disk is
formatted? Therefore if someone crashes their system and has to format their
hard disk and restore your software from their backups your protection method
would be triggered! Not a very good method to use for copy protection.
}
Program MediaID;
Uses
Dos;
Type
Tmid = record
midInfoLevel : Word; { information level ? }
midSerialNum : LongInt; { serial number }
midVolLabel : packed array [1..11] of Char; { ASCII volume label }
midFileSysType : packed array [1..8] of Char; { ASCII file system }
end; { of Tmid }
Var
MID : Tmid;
DriveChar : Char;
DriveNum : Word;
DirInfo : SearchRec;
Volume : String;
Function Hex4(w : Word) : String;
const
HexStr : packed array [00ドル..0ドルF] of Char = '0123456789ABCDEF';
var
s : String;
ndx : Integer;
begin { of Hex4 }
s := '';
for ndx := 3 downto 0 do
begin
s := s + HexStr[(W shr (ndx*4)) and 0ドルF];
end;
Hex4 := s;
end; { of Hex4 }
Function GetMediaID(Drive : Word) : Word;
{---------------------------------------------------------------------}
{ This routine reads the VolumeLabel, SerialNumber from the boot }
{ sector of the specified drive. Requires MSDOS5 or above. }
{---------------------------------------------------------------------}
begin { of GetMediaID }
asm
mov bx, Drive { 0=default, 1=A:, 2=B: etc }
mov ch, 08h { device category (must be 08h) }
mov cl, 66h { Get Media ID }
mov dx, seg MID { ds:dx pointer to MID structure }
mov ds, dx
mov dx, offset MID
mov ax, 440Dh { IOCTL for block device }
int 21h
jc @1 { carry is set if there is an error }
mov ax, 0000h { no error - clear ax }
@1:
mov @result, ax { return error code }
end;
end; { of GetMediaID }
Function VolumeLabel(Drive : Char; var VolLabel : String) : Word;
{---------------------------------------------------------------------}
{ This routine reads the VolumeLabel from the root directory of }
{ the specified drive. }
{---------------------------------------------------------------------}
begin { of VolLabel }
FindFirst(Drive+':\*.*', VolumeID, DirInfo);
VolumeLabel := DosError;
VolLabel := DirInfo.Name;
{ delete a "." which would be the 9th character }
if (Length(VolLabel)> 8) then
Delete(VolLabel, 8, 1);
end; { of VolLabel }
begin { of MediaID }
DriveChar := 'C';
DriveNum := ord(DriveChar) - 64;
if (GetMediaID(DriveNum) = 0) then
begin
Writeln(output, 'InfoLevel = ', MID.midInfoLevel);
Writeln(output, 'SerialNum = ',
Hex4((MID.midSerialNum shr 10ドル) and $FFFF), '-',
Hex4(MID.midSerialNum and $FFFF));
Writeln(output, 'VolLabel = "', MID.midVolLabel, '"');
Writeln(output, 'FileSysType = "', MID.midFileSysType, '"');
end
else
begin
{ function not supported or error }
end;
Writeln(output);
if (VolumeLabel(DriveChar, Volume) = 0) then
Writeln(output, 'VolLabel = "', Volume, '"')
else
begin
{ error }
end;
end. { of MediaID }