Arsip: Nomor Serial HDD

 
user image
more 10 years ago

dormen

saya Dormen, tolong bantu saya dong, coding detect serial number harddisk PC? Thread Splited -- mas_kofa
user image
more 10 years ago

elva_ivana


function SerialHDD(const DriveLetter: Char): string;
var
  NotUsed:     DWORD;
  VolumeFlags: DWORD;
  VolumeInfo:  array 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;
kemudian tinggal panggil Fungsi SerialHDD tsb ..

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(SerialHDD('c'));
end;
Note : @Domen, sekiranya dikau akan membuat Topic baru, maka gunakanlah fasilitas New topic perhatikan rule ...
user image
more 10 years ago

herux

itu sih volume serial number bro.
user image
more 10 years ago

sky47

@dormen : pke getdiskSerial aj klo serius pm aj.....
user image
more 10 years ago

amyra

detect serial harddisk? komponen VCL... Mitec bisa malah komplit..enggak gratiss...
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com