|
|
ID: 13399, How to get Hard Disk Serial Number - No Assembler
|
| 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:
|
|
For Delphi, Version 1.0
to 4.0
1569 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
File Exploration is Disabled
We're sorry, but errors in the uploaded zip file prevent it from being explored.
The error generated by the Zip attachment is:
You may still be able to repair the zip file contents if you download the entire zip locally. You may also want to ask the author to repost the attachment.
|
| 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;
|
|
Server Response from: ETNACDC03
Connect with Us