Mendapatkan Serial Number Harddisk

sesuai dengan judulnya….

function GetHardDiskSerial(const DriveLetter: Char): string;
var
NotUsed:     DWORD;
VolumeFlags: DWORD;
VolumeInfo:  array[0..MAX_PATH] of Char;
VolumeSerialNumber: DWORD;
begin
GetVolumeInformation(PChar(DriveLetter + ':\'),
nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed,
VolumeFlags, nil, 0);
Result := Format('Label = %s   VolSer = %8.8X',
[VolumeInfo, VolumeSerialNumber])
end;

Cara penggunaannya :

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetHardDiskSerial('c'));
end;

Tagged: ,

4 thoughts on “Mendapatkan Serial Number Harddisk

  1. andy 25 Februari 2009 pukul 10:24 am

    nuhun kang sangat bermanfaat

  2. eksa 25 Februari 2009 pukul 1:55 pm

    sama-sama kang, smoga bisa bermanfaat untuk semuanya juga…!

  3. atl 24 Agustus 2009 pukul 4:15 pm

    wah, makasih ya…

  4. maya 7 Oktober 2010 pukul 2:36 pm

    Bagi teman – teman yang pernah mengalami harddisk, flasdisk, MMC rusak
    – no detect- partisi hilang- terformat- fdisk- virus- corrupt
    – delete- hidden..dll…..bisa dikonsultasikan atau di recovery data
    bisa datang ke ertech komputer.
    Alamat nya: jl.karang rejo x/36 surabaya (daerah ketintang)
    Hub : 031 72357968 / 081330029001
    Saya dulu pernah menyelamatkan harddisk no detek
    Disini memang spesialis recovery data. masalah harga bisa di nego,
    Trims ertech berkat ertechcom dataku kembali normal.
    Semoga sukses…..teman2…!!

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: