DaniWeb Forum Index > Software Development > C

I want the code of a certain function

Please support our C advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Nov 2004

Posts: 1

Reputation: boshkash1986 is an unknown quantity at this point

Solved Threads: 0

boshkash1986 boshkash1986 is offline

Offline

Newbie Poster

I want the code of a certain function

Nov 3rd, 2004

Please i want the code of the function which could get the serial number of the Hard-disk of any computer

Please Can anyone help ?

•

Join Date: Oct 2004

Posts: 4,151

Reputation: vegaseat is just really nice

Solved Threads: 952

vegaseat

Offline

DaniWeb's Hypocrite

Re: I want the code of a certain function

Nov 3rd, 2004

Here is a little Delphi code that gives you just a hint:

 Help with Code Tags 
 C Syntax (Toggle Plain Text) 
// get the hard drive serial number (Delphi Pascal)
procedure TForm1.SerialNumberButtonClick(Sender: TObject);
var
  VolumeSerialNumber : DWORD;
  MaximumComponentLength : DWORD;
  FileSystemFlags : DWORD;
  SerialNumber : string;
begin
  GetVolumeInformation('c:\',
                       nil,
                       0,
                       @VolumeSerialNumber,
                       MaximumComponentLength,
                       FileSystemFlags,
                       nil,
                       0);
  SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4)
                  + '-' +
                  IntToHex(LoWord(VolumeSerialNumber), 4);
  Memo1.Lines.Add(SerialNumber);
end;
 
// get the hard drive serial number (Delphi Pascal)
procedure TForm1.SerialNumberButtonClick(Sender: TObject);
var
  VolumeSerialNumber : DWORD;
  MaximumComponentLength : DWORD;
  FileSystemFlags : DWORD;
  SerialNumber : string;
begin
  GetVolumeInformation('c:\',
                       nil,
                       0,
                       @VolumeSerialNumber,
                       MaximumComponentLength,
                       FileSystemFlags,
                       nil,
                       0);
  SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4)
                  + '-' +
                  IntToHex(LoWord(VolumeSerialNumber), 4);
  Memo1.Lines.Add(SerialNumber);
end;

It uses the WinApi function:

 Help with Code Tags 
 C Syntax (Toggle Plain Text) 
BOOL GetVolumeInformation(
    LPCTSTR lpRootPathName,	// address of root directory of the file system 
    LPTSTR lpVolumeNameBuffer,	// address of name of the volume 
    DWORD nVolumeNameSize,	// length of lpVolumeNameBuffer 
    LPDWORD lpVolumeSerialNumber,	// address of volume serial number 
    LPDWORD lpMaximumComponentLength,	// address of system's maximum filename length
    LPDWORD lpFileSystemFlags,	// address of file system flags 
    LPTSTR lpFileSystemNameBuffer,	// address of name of file system 
    DWORD nFileSystemNameSize 	// length of lpFileSystemNameBuffer 
);
BOOL GetVolumeInformation(
    LPCTSTR lpRootPathName,	// address of root directory of the file system 
    LPTSTR lpVolumeNameBuffer,	// address of name of the volume 
    DWORD nVolumeNameSize,	// length of lpVolumeNameBuffer 
    LPDWORD lpVolumeSerialNumber,	// address of volume serial number 
    LPDWORD lpMaximumComponentLength,	// address of system's maximum filename length
    LPDWORD lpFileSystemFlags,	// address of file system flags 
    LPTSTR lpFileSystemNameBuffer,	// address of name of file system 
    DWORD nFileSystemNameSize 	// length of lpFileSystemNameBuffer 
);