به دست آوردن شماره هارد RAID?

[SYNDROME]

با سلام
من برنامه ای از سایت به نامه HDD گرفتم که مشخصات هارد یک کامپیوتر را به دست می آورد.
ولی زمانی که در سیستی هاردها به شکل RADI وجود دارند با اجرا برنامه هر با یک سری اطلاعات نامشخص بر می گردد.
برای به دست آورد شماره سریال هر هارد چه کار باید انجام دهم؟
اگر ابزار و یا مثال وجود دارد ممنون می شوم بنده را راهنمایی کنید.
با تشکر

[دلفــي]

با سلام
من برنامه ای از سایت به نامه HDD گرفتم که مشخصات هارد یک کامپیوتر را به دست می آورد.
ولی زمانی که در سیستی هاردها به شکل RADI وجود دارند با اجرا برنامه هر با یک سری اطلاعات نامشخص بر می گردد.
برای به دست آورد شماره سریال هر هارد چه کار باید انجام دهم؟
اگر ابزار و یا مثال وجود دارد ممنون می شوم بنده را راهنمایی کنید.
با تشکر

اين رو امتحان كنيد :



function GetIdeSerialNumber : String;
const IDENTIFY_BUFFER_SIZE = 512;
type
TIDERegs = packed record
bFeaturesReg : BYTE; // Used for specifying SMART "commands".
bSectorCountReg : BYTE; // IDE sector count register
bSectorNumberReg : BYTE; // IDE sector number register
bCylLowReg : BYTE; // IDE low order cylinder value
bCylHighReg : BYTE; // IDE high order cylinder value
bDriveHeadReg : BYTE; // IDE drive/head register
bCommandReg : BYTE; // Actual IDE command.
bReserved : BYTE; // reserved for future use. Must be zero.
end;
TSendCmdInParams = packed record
// Buffer size in bytes
cBufferSize : DWORD;
// Structure with drive register values.
irDriveRegs : TIDERegs;
// Physical drive number to send command to (0,1,2,3).
bDriveNumber : BYTE;
bReserved : Array[0..2] of Byte;
dwReserved : Array[0..3] of DWORD;
bBuffer : Array[0..0] of Byte; // Input buffer.
end;
TIdSector = packed record
wGenConfig : Word;
wNumCyls : Word;
wReserved : Word;
wNumHeads : Word;
wBytesPerTrack : Word;
wBytesPerSector : Word;
wSectorsPerTrack : Word;
wVendorUnique : Array[0..2] of Word;
sSerialNumber : Array[0..19] of CHAR;
wBufferType : Word;
wBufferSize : Word;
wECCSize : Word;
sFirmwareRev : Array[0..7] of Char;
sModelNumber : Array[0..39] of Char;
wMoreVendorUnique : Word;
wDoubleWordIO : Word;
wCapabilities : Word;
wReserved1 : Word;
wPIOTiming : Word;
wDMATiming : Word;
wBS : Word;
wNumCurrentCyls : Word;
wNumCurrentHeads : Word;
wNumCurrentSectorsPerTrack : Word;
ulCurrentSectorCapacity : DWORD;
wMultSectorStuff : Word;
ulTotalAddressableSectors : DWORD;
wSingleWordDMA : Word;
wMultiWordDMA : Word;
bReserved : Array[0..127] of BYTE;
end;
PIdSector = ^TIdSector;
TDriverStatus = packed record
// Error code from driver, or 0 if no error.
bDriverError : Byte;
// Contents of IDE Error register. Only valid when bDriverError is SMART_IDE_ERROR.
bIDEStatus : Byte;
bReserved : Array[0..1] of Byte;
dwReserved : Array[0..1] of DWORD;
end;
TSendCmdOutParams = packed record
// Size of bBuffer in bytes
cBufferSize : DWORD;
// Driver status structure.
DriverStatus : TDriverStatus;
// Buffer of arbitrary length in which to store the data read from the drive.
bBuffer : Array[0..0] of BYTE;
end;

var hDevice : THandle;
cbBytesReturned : DWORD;
ptr : PChar;
SCIP : TSendCmdInParams;
aIdOutCmd : Array [0..(SizeOf(TSendCmdOutParams)+IDENTIFY_BUFFER_SIZE-1)-1] of Byte;
IdOutCmd : TSendCmdOutParams absolute aIdOutCmd;

procedure ChangeByteOrder( var Data; Size : Integer );
var ptr : PChar;
i : Integer;
c : Char;
begin
ptr := @Data;
for i := 0 to (Size shr 1)-1 do
begin
c := ptr^;
ptr^ := (ptr+1)^;
(ptr+1)^ := c;
Inc(ptr,2);
end;
end;

begin
Result := ''; // return empty string on error
if SysUtils.Win32Platform=VER_PLATFORM_WIN32_NT then // Windows NT, Windows 2000
begin
// warning! change name for other drives: ex.: second drive '\\.\PhysicalDrive1\'
hDevice := CreateFile( '\\.\PhysicalDrive0', GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0 );
end
else // Version Windows 95 OSR2, Windows 98
hDevice := CreateFile( '\\.\SMARTVSD', 0, 0, nil, CREATE_NEW, 0, 0 );
if hDevice=INVALID_HANDLE_VALUE then Exit;
try
FillChar(SCIP,SizeOf(TSendCmdInParams)-1,#0);
FillChar(aIdOutCmd,SizeOf(aIdOutCmd),#0);
cbBytesReturned := 0;
// Set up data structures for IDENTIFY command.
with SCIP do
begin
cBufferSize := IDENTIFY_BUFFER_SIZE;
// bDriveNumber := 0;
with irDriveRegs do
begin
bSectorCountReg := 1;
bSectorNumberReg := 1;
// if Win32Platform=VER_PLATFORM_WIN32_NT then bDriveHeadReg := $A0
// else bDriveHeadReg := $A0 or ((bDriveNum and 1) shl 4);
bDriveHeadReg := $A0;
bCommandReg := $EC;
end;
end;
if not DeviceIoControl( hDevice, $0007c088, @SCIP, SizeOf(TSendCmdInParams)-1,
@aIdOutCmd, SizeOf(aIdOutCmd), cbBytesReturned, nil ) then Exit;
finally
CloseHandle(hDevice);
end;
with PIdSector(@IdOutCmd.bBuffer)^ do
begin
ChangeByteOrder( sSerialNumber, SizeOf(sSerialNumber) );
(PChar(@sSerialNumber)+SizeOf(sSerialNumber))^ := #0;
Result := PChar(@sSerialNumber);
end;
end;

[SYNDROME]

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

[SYNDROME]

با سلام
کسی از دوستان می تواند بنده را در این زمینه راهنمایی کند؟
من همچنان منتظر راهنمایی شما دوستان هستم
با تشکر

[دلفــي]

اين رو هم ببينيد :

تابع بدست آوردن مشخصات كامل هارد ديسك (http://barnamenevis.org/forum/showthread.php?t=190417)

[SYNDROME]

اين رو هم ببينيد :

تابع بدست آوردن مشخصات كامل هارد ديسك (http://barnamenevis.org/forum/showthread.php?t=190417)
با سلام و تشکر
دوست عزیز عنوان تابع چی است؟
نتوانستم پیدا کنم.
با تشکر

[دلفــي]

با سلام و تشکر
دوست عزیز عنوان تابع چی است؟
نتوانستم پیدا کنم.
با تشکر

بخش اعلانات (مرجع توابع دلفي)

عنوان مطلب : تابع بدست آوردن مشخصات كامل هارد ديسك

نام تابع : ;function GetIdeSerialNumber(i:Integer) : String

[SYNDROME]

بخش اعلانات (مرجع توابع دلفي)

عنوان مطلب : تابع بدست آوردن مشخصات كامل هارد ديسك

نام تابع : ;function GetIdeSerialNumber(i:Integer) : String
با سلام
با تشکر فراوان
ولی این کد هم کار نمی کند دوست عزیز
من منتظر راهنمایی دوستان هستم
با تشکر

[SYNDROME]

با سلام
آیا کسی از دوستان در زمینه هارد RAID اطلاعاتی ندارد تا به من کمک کند؟
همچنان مشکل دارم.
منتظر کمک شما هستم
با تشکر

[دلفــي]

ببين اين جواب ميده ؟!!!

[SYNDROME]

ببین این جواب میده ؟!!!
سلام
با تشکر از توجه شما
باز هم جواب ندارد دوست عزیز.("-----" خط چین بر می گرداند)
باز هم منتظر کمک دوستان هستم
موفق باشید