Harddisk fabrika seri numarsı

[Ademkoysuren]

selam

harddisk in fabrika seri numarasını nasıl bulabilirim. bununla ilgili kad gönderirseniz sevinirim.

iyi çalışmalar

[husonet]

A.S,

Yanlış hatırlamıyorsam bu konu daha önce forum da sorulmuştu Forum'u arattırmanızı öneririm.

İyi Akşamlar.

[mussimsek]

http://www.delphiturkiye.com/ipobjpas.h ... ika_serino

Kolay gelsin.

[salvation]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  SerialNum : pdword;
  a, b : dword;
  Buffer  : array [0..255] of char;
begin
if GetVolumeInformation('c:\', Buffer, SizeOf(Buffer), @SerialNum, a, b,
nil, 0) then
  Label1.Caption := IntToStr(SerialNum^);
end;