HDD in seri nosunu ögrenme (vaka)

Programlama dilleri konusunda bilgi paylaşım alanıdır.
Cevapla
Kullanıcı avatarı
velociraptor
Yottabyte4
Yottabyte4
Mesajlar: 35967
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek

HDD in seri nosunu ögrenme (vaka)

Mesaj gönderen velociraptor »

Soru:
HDD in Sri nosunu nasil ögrenebilirim

Cevap:

Kodlama Dili : VISUAL BASIC.NET
`references`a system.Management`i ekleyiniz Imports System.Management Dim disk As New ManagementClass("Win32_PhysicalMedia") Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click For Each Hdisk As ManagementObject In disk.GetInstances() If Hdisk("SerialNumber") <> Nothing Then MessageBox.Show("Hdisk serino: " & CStr(Hdisk("SerialNumber"))) End If Next Hdisk End Sub

Delphi

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
VolumeSerialNumber : DWORD;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;
SerialNumber : string;
begin
GetVolumeInformation('C:', nil, 0, @VolumeSerialNumber, MaximumComponentLength, FileSystemFlags, nil, 0);
SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) + '-' + IntToHex(LoWord(VolumeSerialNumber), 4);
Memo1.Lines.Add(SerialNumber);
end;
ALINTIDIR
Cevapla