Teknik Sederhana Pemanfaatan Serial Hardisk (Delphi 7)
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('%d',[VolumeSerialNumber]) end; Function diatas digunakan untuk mendapatkan informasi serial harddisk yang kemudian dapat ditampilkan dalam nilai decimal (%d) dengan cara sederhana sebagai berikut : label1.Caption := '+GetHardDiskSerial('c')+'; Untuk memanfaatkan Serial Hardisk menjadi serial number sebuah produk aplikasi yang kita buat, caranya sangat mudah dan bervariasi, tergantung bagaimana cara kita meng-ENKRIPSI-nya. Perlukah teknik enkripsi yang rumit...? jawaban saya tidak perlu, contohnya sebagai berikut : if FileExists('License.txt') then begin Sleep(1000); ...