Chami.com Tips

Home > Tips > Programming > Detecting CD-ROM disc and other disk change us...

300+ book mentions, 95% thumbs up, millions of downloads. Get HTML-Kit Tools for $39 (limited time offer)

Web Hosting Web Hosting UK Dedicated Servers Domain Names

Categories

Internet
HTML
JavaScript
» Programming
Windows

Keywords

Delphi
Functions
Windows 95/98/ME

Downloads

diskvol diskvol2

Detecting CD-ROM disc and other disk change using serial numbers

See Also

Control AutoPlay (dynamically) from your program

A simple way to find out if a disc (or disk) was changed is to check its volume serial number. For example, you can use the following function to get the volume serial number of a disc. If your CD-ROM drive name is E:, "GetDiskVolSerialID( 'E' )" will return the serial number we're looking for. You can then store this number in your program and compare it to the serial number returned by the next call to "GetDiskVolSerialID()" function. If they are different, you can safely assume that the disc was changed.

function GetDiskVolSerialID(
  cDriveName : char ) : DWord;
var
  dwTemp1,
  dwTemp2 : DWord;
begin
  GetVolumeInformation(
    PChar( cDriveName + ':' ),
    Nil,
    0,
    @Result,
    dwTemp2,
    dwTemp2,
    Nil,
    0
    );
end;

Listing #1 : Delphi code. Download diskvol (0.29 KB).

If need to display the serial number as it's displayed by most original DOS and Windows programs, simply convert the number returned by "GetDiskVolSerialID()" to a hex string:

MessageDlg(
  'Serial number: ' +
  Format( '%X', [ GetDiskVolSerialID( 'E' ) ] ),
  mtInformation, [mbOk], 0 );

Listing #2 : Delphi code. Download diskvol2 (0.24 KB).

Applicable Keywords : Delphi, Delphi 2.x, Delphi 3.x, Functions, Win32

Previous Tip : GlobalMemoryStatus() to the rescue
Random Tip : Life cycle of a form
Next Tip : Do you have Hot Keys?