سریال سخت افزاری هارد دیسک و مشکل در کامپونتها.

[SYNDROME]

یک سوال قبلا تکرار شده ولی یک مشکلی وجود دارد.
من می خواهم شماره سخت افزاری هارد را در بیاورم که البته در سایت کامپونتهایی برای این کار دوستان قرار داده اند که من از یکی از آنها استفاده کرده ام.
ولی یک مشکل اساسی دارد و آن آین است که زمانی که هارد IDE است مشکلی نیست ولی اگر هارد ساتا باشد کامپونت فوق سریال CD Rom و یا DVD Rom که متصل به کابل IDE است را بر می گرداند.
آیا دوست از این همه کامپونتی که در سایت است یکی را تست کرده اند که سریال هارد را برگرداند(چه IDE باشد و چه ساتا)
با تشکر از همه دوستان
موفق باشی

[Valadi]

با سلام علی جان
این کد ببین

unit hddinfo;

interface

uses Windows, SysUtils, Classes;

const
IOCTL_STORAGE_QUERY_PROPERTY = $2D1400;

type
THDDInfo = class (TObject)
private
FDriveNumber: Byte;
FFileHandle: Cardinal;
FInfoAvailable: Boolean;
FProductRevision: string;
FProductId: string;
FSerialNumber: string;
FVendorId: string;
procedure ReadInfo;
procedure SetDriveNumber(const Value: Byte);
public
constructor Create;
property DriveNumber: Byte read FDriveNumber write SetDriveNumber;
property VendorId: string read FVendorId;
property ProductId: string read FProductId;
property ProductRevision: string read FProductRevision;
property SerialNumber: string read FSerialNumber;
function SerialNumberInt: Cardinal;
function SerialNumberText: string;
function IsInfoAvailable: Boolean;
end;

implementation

type

STORAGE_PROPERTY_QUERY = packed record
PropertyId: DWORD;
QueryType: DWORD;
AdditionalParameters: array[0..3] of Byte;
end;

STORAGE_DEVICE_DESCRIPTOR = packed record
Version: ULONG;
Size: ULONG;
DeviceType: Byte;
DeviceTypeModifier: Byte;
RemovableMedia: Boolean;
CommandQueueing: Boolean;
VendorIdOffset: ULONG;
ProductIdOffset: ULONG;
ProductRevisionOffset: ULONG;
SerialNumberOffset: ULONG;
STORAGE_BUS_TYPE: DWORD;
RawPropertiesLength: ULONG;
RawDeviceProperties: array[0..511] of Byte;
end;

function ByteToChar(const B: Byte): Char;
begin
Result := Chr(B + $30)
end;

function SerialNumberToCardinal (SerNum: String): Cardinal;
begin
HexToBin(PChar(SerNum), PChar(@Result), SizeOf(Cardinal));
end;

function SerialNumberToString(SerNum: String): String;
var
I, StrLen: Integer;
Pair: string;
B: Byte;
Ch: Char absolute B;

begin
Result := '';
StrLen := Length(SerNum);

if Odd(StrLen) then Exit;

I := 1;

while I < StrLen do
begin
Pair := Copy (SerNum, I, 2);
HexToBin(PChar(Pair), PChar(@B), 1);
Result := Result + Chr(B);
Inc(I, 2);
end;

I := 1;

while I < Length(Result) do
begin
Ch := Result[I];
Result[I] := Result[I + 1];
Result[I + 1] := Ch;
Inc(I, 2);
end;
end;

constructor THddInfo.Create;
begin
inherited;

SetDriveNumber(0);
end;

function THDDInfo.IsInfoAvailable: Boolean;
begin
Result := FInfoAvailable
end;

procedure THDDInfo.ReadInfo;
type
PCharArray = ^TCharArray;
TCharArray = array[0..32767] of Char;

var
Returned: Cardinal;
Status: LongBool;
PropQuery: STORAGE_PROPERTY_QUERY;
DeviceDescriptor: STORAGE_DEVICE_DESCRIPTOR;
PCh: PChar;

begin
FInfoAvailable := False;
FProductRevision := '';
FProductId := '';
FSerialNumber := '';
FVendorId := '';

try
FFileHandle := CreateFile(
PChar('\\.\PhysicalDrive' + ByteToChar(FDriveNumber)),
0,
FILE_SHARE_READ or FILE_SHARE_WRITE,
nil,
OPEN_EXISTING,
0,
0
);

if FFileHandle = INVALID_HANDLE_VALUE then RaiseLastOSError;

ZeroMemory(@PropQuery, SizeOf(PropQuery));
ZeroMemory(@DeviceDescriptor, SizeOf(DeviceDescriptor));

DeviceDescriptor.Size := SizeOf(DeviceDescriptor);

Status := DeviceIoControl(
FFileHandle,
IOCTL_STORAGE_QUERY_PROPERTY,
@PropQuery,
SizeOf(PropQuery),
@DeviceDescriptor,
DeviceDescriptor.Size,
Returned,
nil
);

if not Status then RaiseLastOSError;

if DeviceDescriptor.VendorIdOffset <> 0 then
begin
PCh := @PCharArray(@DeviceDescriptor)^[DeviceDescriptor.VendorIdOffset];
FVendorId := PCh;
end;

if DeviceDescriptor.ProductIdOffset <> 0 then
begin
PCh := @PCharArray(@DeviceDescriptor)^[DeviceDescriptor.ProductIdOffset];
FProductId := PCh;
end;

if DeviceDescriptor.ProductRevisionOffset <> 0 then
begin
PCh := @PCharArray(@DeviceDescriptor)^[DeviceDescriptor.ProductRevisionOffset];
FProductRevision := PCh;
end;

if DeviceDescriptor.SerialNumberOffset <> 0 then
begin
PCh := @PCharArray(@DeviceDescriptor)^[DeviceDescriptor.SerialNumberOffset];
FSerialNumber := PCh;
end;

FInfoAvailable := True;
finally
if FFileHandle <> INVALID_HANDLE_VALUE then CloseHandle(FFileHandle);
end;
end;

function THDDInfo.SerialNumberInt: Cardinal;
begin
Result := 0;
if ((IsInfoAvailable = True) and (FSerialNumber <> '')) then Result := SerialNumberToCardinal(FSerialNumber)
end;

function THDDInfo.SerialNumberText: string;
begin
Result := '';
if ((IsInfoAvailable = True) and (FSerialNumber <> '')) then Result := SerialNumberToString(FSerialNumber)
end;

procedure THDDInfo.SetDriveNumber(const Value: Byte);
begin
FDriveNumber := Value;
ReadInfo;
end;

end.

اگر با این کد مشکلت حل نشد دو تا کامپونت حرفه ای دارم در این زمینه یکی شون برنامه که ضمیمه کردم
راستی علی جان برای قفل نرم افزاری بخواهی کامپونت جالبتری هم دارم

[SYNDROME]

چطوری Valadi عزیز.
کدی که گذاشتی مربوط به کامپونت HDDinfo است که دقیقاً مشکل فوق را دارد.
برنامه ای هم که گذاشتی فقط Exe است و نتوانستم Source را نگاه کن.
دوست عزیز من فقط یک کامپونت یا یک تکه Source می خواهم که بتواند سریال هارد را به درستی برگرداند چه هارد IDE باشد و چه ساتا.
منتظر راهنمایی همه دوستان هستم
موفق باشید

[دنیای دلفی]

دوست عزیز کامپوننت HDDInfo مشکلی ندارد استفاده صحیح از آن نشده یعنی پارامترها را باید به صورت دستی داخلش ست کرد تا هارد شما چه IDE باشد چه SATA چه SCASI جواب درست دهید . این هم روش صحیح استفاده . تست و بعد نتیجه رو اعلام کن


// Try
// HDD:=THDDInfo.Create(HDD);
// HDD.Method := gimAuto;
// for ii :=0 to 7 do
// begin
// try
// case ii of
// 0:HDD.Drive:=dPrimaryMaster;
// 1:HDD.Drive:=dPrimarySlave;
// 2:HDD.Drive:=dQuaternaryMaster;
// 3:HDD.Drive:=dQuaternarySlave;
// 4:HDD.Drive:=dSecondaryMaster;
// 5:HDD.Drive:=dSecondarySlave;
// 6:HDD.Drive:=dTertiaryMaster;
// 7:HDD.Drive:=dTertiarySlave;
// end;
// case HDD.HDDType of
// dtFixed:
// if HDD.isIDE then
// if HDD.Serial[1] <> #0 then
// if Trim(HDD.Serial)<>'' then
// begin
// SerialCode:=HDD.Serial;
// Break;
// end;
// end;
//
// except
// end;
//
// end;
//
// HDD.Free;
// Except
// HDD.Free;
// end;

[Valadi]

برنامه ای هم که گذاشتی فقط Exe است و نتوانستم Source را نگاه کن
برنامه ای گذاشتم سریال هارد Sata را می دهد یا نه ؟؟

[mohebbi_en]

با سلام
component wmi set کارش دادن مشخصات تمام سخت افزارهاست.

[SYNDROME]

برنامه ای گذاشتم سریال هارد Sata را می دهد یا نه ؟؟
من هاردم Sata نیست و نتوانستم تست کنم.
موفق باشید

[Valadi]

علی جان این کامپونت و دمو هم داره ببین
موفق وموید باشید

[SYNDROME]

علی جان این کامپونت و دمو هم داره ببین
موفق وموید باشید
دستت در د نکنه کارم راه افتاد.
کامپونتی که در این مجموعه بود هم نام کامپونتی بود که من داشتم ولی یکی از تابع هایی که برای شما داشتید کامپونت من نداشت و مشکل از همان جا بود.
موفق باشید