Arsip: Nomor Serial HDD

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

more 13 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 ...
more 13 years ago
amyra
detect serial harddisk?
komponen VCL... Mitec bisa malah komplit..enggak gratiss...
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago
Random Topic
- New page (dalam penggabungan report)??
by ianhade in Reporting more 14 years ago - Bgmana Cara Embed Form DLL to TTabsheet di Form Pemaggil ?
by henry_sys in Form Enhancement & Graphical Controls more 11 years ago - enkripsi image
by wedhee04 in Tutorial & Community Project more 14 years ago - menghentikan proses looping
by kabuki_enemy in Tip n Trik Pemrograman more 15 years ago - [ask]Text formating pada delphi
by accel.design in Bedah Kasus more 11 years ago - Print di Quick Report dari file txt
by irene in Reporting more 15 years ago - odbc data source not found
by ricky_seldjatem in Tip n Trik Pemrograman more 14 years ago - ikut pesan kaos
by indobrainsoft in Tutorial & Community Project more 15 years ago - About Printer
by krishy in Tip n Trik Pemrograman more 15 years ago - buat stored procedure..
by her1z_yu2n in Hal umum tentang Pascal Indonesia more 15 years ago