|
|
#1 (permalink) | ||||
|
Üye
|
Harddisk Seri No Öğrenmek
Bu seri numarası fabrikanın verdiği numara değildir! C:\ sürücüsünün seri numarasıdır. Diğer sürücüler için de uygulanabilir.
procedure TForm1.Button1Click(Sender: TObject); var VolumeSerialNumber : DWORD; MaximumComponentLength : DWORD; FileSystemFlags : DWORD; SerialNumber : string; begin GetVolumeInformation('C:\',nil,0,@VolumeSerialNumb er,MaximumComponentLength, FileSystemFlags,nil,0); SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) + '-' +IntToHex(LoWord(VolumeSerialNumber), 4); Edit1.Text := SerialNumber; end; |
||||
|
|
|
![]() |
| Seçenekler | |
| Stil | |
|
|
Benzer Konular
|
||||
| Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
| Cd sürücüsünün seri numarasi kod | Alem-i Soyut | Delphi | 0 | 06-18-2008 10:13 PM |