gimana caranya baca serial number hardisk pake delphi :P

Anda bisa menggunakan WMI, skeleton program bisa dibaca melalui aplikasi CPUInfo via WMI yang saya buat sebelumnya, tinggal ubah query string nya dari Win32_Processor menjadi Win32_DiskDrive dan Win32_DiskDrivePhysicalMedia. Untuk tiap partisi, Anda dapat menggunakan key Win32_DiskPartition dan Win32_DiskPartitionToDiskPartition.

@cyber_hecker: fungsi untuk mendapatkan serial number harddisk :

function FindVolumeSerial(const Drive : PChar) : string;
var
  VolumeSerialNumber : DWORD;
  MaximumComponentLength : DWORD;
  FileSystemFlags : DWORD;
  SerialNumber : string;
begin
  Result:='';
  GetVolumeInformation(
    Drive,
    nil,
    0,
    @VolumeSerialNumber,
    MaximumComponentLength,
    FileSystemFlags,
    nil,
    0) ;
  SerialNumber :=
    IntToHex(HiWord(VolumeSerialNumber), 4) +
    ' - ' +
    IntToHex(LoWord(VolumeSerialNumber), 4) ;
  Result := SerialNumber;
end; (FindVolumeSerial )
procedure TForm1.Button1Click(Sender: TObject);
var
  C_DriveSerNumber : string;
begin
  C_DriveSerNumber := FindVolumeSerial('c:') ;
end;

nb. by the way. ini penyakit_mambu yang di YM itu ya. kalo gak salah gue punya temen di YM, idnya juga penyakit_mambu. hue he he :D

wakakakakak kih kowe toh ber..... cyber_hacker <- penguasa room jog 2 yah. gimana kabarnya.... :lol: aku suwe gak pernah ym an kih sibuk ngurus skripsi je ndak ra rampung-rampung :oops: maklum wis tuwa je thank ber & delogic :wink: oya tanya lagi boleh kan : gimana caranya nonaktifin program lain pake delphi,...???

karena diskusi melebar ke arah lain, thread ini saya split. http://pascal-id.org/thread/unknown/136/view-old-thread/