Get hardisk serial 2

Get HardDisk Serial 2

Bagaimana mendapatkan semua Serial Harddisk pada komputer? 
Kode selanjutnya bekerja untuk semua Volume HDD di komputer:


unit Unit1; 
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}

{... membuat function untuk mendapatkan serial ID harddisk ...}


function GetVolumeID(DriveChar: Char): string;
var
MaxFileNameLength, VolFlags, SerNum: DWord;
begin
if GetVolumeInformation(PAnsiChar(DriveChar + ':\'), nil, 0, @SerNum, MaxFileNameLength, VolFlags, nil, 0)
then
begin
Result := IntToHex(SerNum,8);
end
else
Result := '';
end; 

{... selanjutnya kita membuat program untuk mendapatkan semua serial ID harddisk yang ada di komputer   dan menampilkannya di sebuah memo..}


procedure TForm1.Button1Click(Sender: TObject);
var
C: Char;
S: string;
begin
Memo1.Lines.Clear;
for C := 'C' to 'Z' do
begin
begin
S := GetVolumeID(C);
Memo1.Lines.Add(C + ' = '+ S);
end;
end;
end;
end.

Maka ketika program dijalankan akan mendapatkan hasil seperti dibahaw ini :

Posted via Blogaway