مكون HDDINFO لمعرفة الرقم التسلسلي للقرص الصلب

[bassem_43]

وعليكم السلام

جرب هذا


uses
Windows;

function GetHardDiskSerialNumber: string;
const
IOCTL_STORAGE_QUERY_PROPERTY = $2D1400;
StorageDeviceProperty = 0;
IsWindows10OrGreater = $A0;
MAX_PATH = 260;
type
STORAGE_PROPERTY_QUERY = record
PropertyId: DWORD;
QueryType: DWORD;
AdditionalParameters: array [0..3] of Byte;
end;
STORAGE_DESCRIPTOR_HEADER = record
Version: DWORD;
Size: DWORD;
end;
STORAGE_DEVICE_DESCRIPTOR = record
Version: DWORD;
Size: DWORD;
DeviceType: Byte;
DeviceTypeModifier: Byte;
RemovableMedia: Boolean;
CommandQueueing: Boolean;
VendorIdOffset: DWORD;
ProductIdOffset: DWORD;
ProductRevisionOffset: DWORD;
SerialNumberOffset: DWORD;
BusType: DWORD;
RawPropertiesLength: DWORD;
RawDeviceProperties: array [0..0] of Byte;
end;
var
hDevice: THandle;
bytesReturned: DWORD;
propQuery: STORAGE_PROPERTY_QUERY;
descHeader: STORAGE_DESCRIPTOR_HEADER;
descBuffer: array [0..MAX_PATH] of Byte;
deviceDescriptor: STORAGE_DEVICE_DESCRIPTOR absolute descBuffer;
serialNumber: PAnsiChar;
begin
Result := '';

hDevice := CreateFile('\\.\PhysicalDrive0', GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
if hDevice = INVALID_HANDLE_VALUE then
Exit;

propQuery.PropertyId := StorageDeviceProperty;
propQuery.QueryType := PropertyStandardQuery;

if not DeviceIoControl(hDevice, IOCTL_STORAGE_QUERY_PROPERTY, @propQuery,
SizeOf(STORAGE_PROPERTY_QUERY), @descBuffer, SizeOf(descBuffer),
bytesReturned, nil) then
begin
CloseHandle(hDevice);
Exit;
end;

descHeader := STORAGE_DESCRIPTOR_HEADER(descBuffer);
serialNumber := PAnsiChar(@descBuffer[deviceDescriptor.SerialNumberOffset]);
Result := string(serialNumber);

CloseHandle(hDevice);
end;

بارك الله فيك
لقد وجدت هاته الوحدة و تفي بالغرض
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,WbemScripting_TLB,ActiveX;

type
TForm4 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form4: TForm4;

implementation

{$R *.dfm}

function GetWMIstring (wmiHost, wmiClass, wmiProperty : string)tring;
var // These are all needed for the WMI querying process
Locator: ISWbemLocator;
Services: ISWbemServices;
SObject: ISWbemObject;
ObjSet: ISWbemObjectSet;
SProp: ISWbemProperty;
Enum: IEnumVariant;
Value: Cardinal;
TempObj: OleVariant;
SN: string;
begin
try
Locator := CoSWbemLocator.Create; // Create the Location object
// Connect to the WMI service, with the root\cimv2 namespace
Services := Locator.ConnectServer(wmiHost, 'root\cimv2', '', '', '','', 0, nil);
ObjSet := Services.ExecQuery('SELECT * FROM '+wmiClass, 'WQL',
wbemFlagReturnImmediately and wbemFlagForwardOnly , nil);
Enum := (ObjSet._NewEnum) as IEnumVariant;
while (Enum.Next(1, TempObj, Value) = S_OK) do
begin
SObject := IUnknown(tempObj) as ISWBemObject;
SProp := SObject.Properties_.Item(wmiProperty, 0);
if VarIsNull(SProp.Get_Value) then
result := ''
else
begin
SN := SProp.Get_Value;
result := SN;
end;
end;
except // Trap any exceptions (Not having WMI installed will cause one!)
on exception do
result := '';
end;
end;

procedure TForm4.Button1Click(Sender: TObject);
var
xtring;
Ytring;

begin


X:=GetWMIstring('','Win32_BIOS','SerialNumber');
Y:=GetWMIstring('','Win32_DiskDrive"','SerialNumber') ;

ShowMessage(x+';'+y);
end;

end.