Watch, Follow, &
Connect with Us

For forums, blogs and more please visit our
Developer Tools Community.


ID: 13399, How to get Hard Disk Serial Number - No Assembler

by Chris Crowe Email: ccrowe@es.co.nz


Download Details
FTP  download also available
CDN Login Required to Download. (You will be redirected to the login page if you click on the Download Link)
To download this, you must have registered:
A free membership

For Delphi, Version 1.0  to 4.0 1568 downloads
Copyright: Open Source or other


Size: 333 bytes
Updated on Thu, 03 Jun 1999 00:00:00 GMT
Originally uploaded on Thu, 03 Jun 1999 00:00:00 GMT
SHA1 Hash: A09272F06DCB668461C6B003D6874B424FA74794
MD5 Hash: 981423D1E1A2848B8B50B945EB77D125

    Explore the files in this upload

Description
How to get the Hard Disk Serial Number for any drive, including network drives?

function GetHDSerialNumber(Drive : String): Longint;
Var
pdw : pDWord;
mc, fl : dword;
begin
New(pdw);
GetVolumeInformation(pchar(Drive),nil,0,pdw,mc,fl,nil,0);

Result := pdw^;
dispose(pdw);
end;

   Latest Comments  View All Add New

Move mouse over comment to see the full text

Could not retrieve comments. Please try again later.

Server Response from: ETNACDC04