如何获取硬盘的ID ? 急用

谷戈 2003-03-31 12:15:14
如何获取硬盘的ID ? 我这有源码，但是读不出来。

原码如下：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, registry;

type
TSrbIoControl = packed record
HeaderLength : ULONG;
Signature : Array[0..7] of Char;
Timeout : ULONG;
ControlCode : ULONG;
ReturnCode : ULONG;
Length : ULONG;
end;
SRB_IO_CONTROL = TSrbIoControl;
PSrbIoControl = ^TSrbIoControl;

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. Must be zero.
end;
IDEREGS = TIDERegs;
PIDERegs = ^TIDERegs;

TSendCmdInParams = packed record
cBufferSize : DWORD;
irDriveRegs : TIDERegs;
bDriveNumber : Byte;
bReserved : Array[0..2] of Byte;
dwReserved : Array[0..3] of DWORD;
bBuffer : Array[0..0] of Byte;
end;
SENDCMDINPARAMS = TSendCmdInParams;
PSendCmdInParams = ^TSendCmdInParams;

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 : ULONG;
wMultSectorStuff : Word;
ulTotalAddressableSectors : ULONG;
wSingleWordDMA : Word;
wMultiWordDMA : Word;
bReserved : Array[0..127] of Byte;
end;
PIdSector = ^TIdSector;


const
IDENTIFY_BUFFER_SIZE = 512;
DataSize = sizeof(TSendCmdInParams)-1+IDENTIFY_BUFFER_SIZE;
IOCTL_SCSI_MINIPORT = $0004d008;
IOCTL_SCSI_MINIPORT_IDENTIFY = $001b0501;
IDE_ID_FUNCTION = $EC;
BufferSize=1280;

type
TForm1 = class(TForm)
Label1: TLabel;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
serial:string;
inputserial:string;

implementation
uses
unit2;
{$R *.DFM}
function encrypt(serial:string):string;
var
i:dword;
len:dword;
r:dword;
begin
r:=0;
len:=length(serial);
for i:=1 to len do
begin
r:=r+dword(serial[i]);
r:=r*10;
end;
result:=inttostr(r);
end;

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;

function readhdserial:string;
var
hDevice : THandle;
cbBytesReturned : DWORD;
pInData : PSendCmdInParams;
pOutData : Pointer; // PSendCmdOutParams
Buffer : Array[0..BufferSize-1] of Byte;
srbControl : TSrbIoControl absolute Buffer;
begin
result:='';
FillChar(Buffer,BufferSize,#0);

//通过MS的S.M.A.R.T.接口,直接从RING3调用
//API DeviceIoControl()来获取硬盘信息
// Get SCSI port handle
hDevice := CreateFile( '\\.\Scsi0:',
GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE,
nil, OPEN_EXISTING, 0, 0 );
if hDevice=INVALID_HANDLE_VALUE then Exit;
try
srbControl.HeaderLength := SizeOf(SRB_IO_CONTROL);
System.Move('SCSIDISK',srbControl.Signature,8);
srbControl.Timeout := 2;
srbControl.Length := DataSize;
srbControl.ControlCode := IOCTL_SCSI_MINIPORT_IDENTIFY;
pInData := PSendCmdInParams(PChar(@Buffer)
+SizeOf(SRB_IO_CONTROL));
pOutData := pInData;
with pInData^ do
begin
cBufferSize := IDENTIFY_BUFFER_SIZE;
bDriveNumber := 0;
with irDriveRegs do
begin
bFeaturesReg := 0;
bSectorCountReg := 1;
bSectorNumberReg := 1;
bCylLowReg := 0;
bCylHighReg := 0;
bDriveHeadReg := $A0;
bCommandReg := IDE_ID_FUNCTION;
end;
end;
if not DeviceIoControl( hDevice, IOCTL_SCSI_MINIPORT,
@Buffer, BufferSize, @Buffer, BufferSize,
cbBytesReturned, nil ) then
Exit;
with PIdSector(PChar(pOutData)+16)^ do
begin
ChangeByteOrder(sSerialNumber,SizeOf(sSerialNumber));
SetString(Result,sSerialNumber,SizeOf(sSerialNumber));
end;
finally
CloseHandle(hDevice);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
reg:tregistry;
s:string;
begin
serial:=readhdserial();
inputserial:=encrypt(serial);
reg:=tregistry.create;
reg.RootKey:=HKEY_CLASSES_ROOT;
if not reg.openKey('\License\'+serial,false) then
//打开注册表项,没有该项，则是第一次启动
begin
Application.CreateForm(TOKBottomDlg, OKBottomDlg);
OKBottomDlg.showmodal;
OKBottomDlg.Destroy;
//输入序列号正确，则
//将已安装信息写入注册表
reg.createkey('\License\'+serial);
reg.openkey('\License\'+serial,false);
reg.writestring('installed','true');
//将序列号写入注册表
reg.Createkey('\License\'+inputserial);
reg.OpenKey('\License\'+inputserial,false);
reg.WriteString('1',inputserial);
reg.closekey;
end
else
begin//是今后的启动
reg.CloseKey;
//检查序列号
reg.openkey('\License\'+inputserial,false);
s:=reg.readstring('1');
reg.closekey;
if inputserial<>s then
begin
Application.CreateForm(TOKBottomDlg, OKBottomDlg);
OKBottomDlg.showmodal;
end;
end;
end;

end.

通过跟踪发现：下面的两行执行，跳出了程序，不知为何，请高手指点。
if not DeviceIoControl( hDevice, IOCTL_SCSI_MINIPORT,
@Buffer, BufferSize, @Buffer, BufferSize,
cbBytesReturned, nil ) then
Exit;
...全文
171 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
888888888888 2003-05-15
  • 打赏
  • 举报
 回复
关注
a12345 2003-05-15
  • 打赏
  • 举报
 回复
转贴----------------------
unit U_GetHDid;

interface

uses windows, SysUtils;

type
TSrbIoControl = packed record
HeaderLength: ULONG;
Signature: array[0..7] of Char;
Timeout: ULONG;
ControlCode: ULONG;
ReturnCode: ULONG;
Length: ULONG;
end;
SRB_IO_CONTROL = TSrbIoControl;
PSrbIoControl = ^TSrbIoControl;

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. Must be zero.
end;
IDEREGS = TIDERegs;
PIDERegs = ^TIDERegs;

TSendCmdInParams = packed record
cBufferSize: DWORD;
irDriveRegs: TIDERegs;
bDriveNumber: Byte;
bReserved: array[0..2] of Byte;
dwReserved: array[0..3] of DWORD;
bBuffer: array[0..0] of Byte;
end;
SENDCMDINPARAMS = TSendCmdInParams;
PSendCmdInParams = ^TSendCmdInParams;

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: ULONG;
wMultSectorStuff: Word;
ulTotalAddressableSectors: ULONG;
wSingleWordDMA: Word;
wMultiWordDMA: Word;
bReserved: array[0..127] of Byte;
end;
PIdSector = ^TIdSector;

const
IDE_ID_FUNCTION = $EC;
IDENTIFY_BUFFER_SIZE = 512;
DFP_RECEIVE_DRIVE_DATA = $0007C088;
IOCTL_SCSI_MINIPORT = $0004D008;
IOCTL_SCSI_MINIPORT_IDENTIFY = $001B0501;
DataSize = sizeof(TSendCmdInParams) - 1 + IDENTIFY_BUFFER_SIZE;
BufferSize = SizeOf(SRB_IO_CONTROL) + DataSize;
W9xBufferSize = IDENTIFY_BUFFER_SIZE + 16;

function GetIdeDiskSerialNumber: string;

implementation

function GetIdeDiskSerialNumber: string;

var
hDevice: THandle;
cbBytesReturned: DWORD;
pInData: PSendCmdInParams;
pOutData: Pointer; // PSendCmdOutParams
Buffer: array[0..BufferSize - 1] of Byte;
srbControl: TSrbIoControl absolute Buffer;

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 := '';
FillChar(Buffer, BufferSize, #0);
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin // Windows NT, Windows 2000
// Get SCSI port handle
hDevice := CreateFile('\\.\Scsi0:',
GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE,
nil, OPEN_EXISTING, 0, 0);
if hDevice = INVALID_HANDLE_VALUE then Exit;
try
srbControl.HeaderLength := SizeOf(SRB_IO_CONTROL);
System.Move('SCSIDISK', srbControl.Signature, 8);
srbControl.Timeout := 2;
srbControl.Length := DataSize;
srbControl.ControlCode := IOCTL_SCSI_MINIPORT_IDENTIFY;
pInData := PSendCmdInParams(PChar(@Buffer)
+ SizeOf(SRB_IO_CONTROL));
pOutData := pInData;
with pInData^ do
begin
cBufferSize := IDENTIFY_BUFFER_SIZE;
bDriveNumber := 0;
with irDriveRegs do
begin
bFeaturesReg := 0;
bSectorCountReg := 1;
bSectorNumberReg := 1;
bCylLowReg := 0;
bCylHighReg := 0;
bDriveHeadReg := $A0;
bCommandReg := IDE_ID_FUNCTION;
end;
end;
if not DeviceIoControl(hDevice, IOCTL_SCSI_MINIPORT,
@Buffer, BufferSize, @Buffer, BufferSize,
cbBytesReturned, nil) then Exit;
finally
CloseHandle(hDevice);
end;
end
else
begin // Windows 95 OSR2, Windows 98
hDevice := CreateFile('\\.\SMARTVSD', 0, 0, nil,
CREATE_NEW, 0, 0);
if hDevice = INVALID_HANDLE_VALUE then Exit;
try
pInData := PSendCmdInParams(@Buffer);
pOutData := @pInData^.bBuffer;
with pInData^ do
begin
cBufferSize := IDENTIFY_BUFFER_SIZE;
bDriveNumber := 0;
with irDriveRegs do
begin
bFeaturesReg := 0;
bSectorCountReg := 1;
bSectorNumberReg := 1;
bCylLowReg := 0;
bCylHighReg := 0;
bDriveHeadReg := $A0;
bCommandReg := IDE_ID_FUNCTION;
end;
end;
if not DeviceIoControl(hDevice, DFP_RECEIVE_DRIVE_DATA,
pInData, SizeOf(TSendCmdInParams) - 1, pOutData,
W9xBufferSize, cbBytesReturned, nil) then Exit;
finally
CloseHandle(hDevice);
end;
end;
with PIdSector(PChar(pOutData) + 16)^ do
begin
ChangeByteOrder(sSerialNumber, SizeOf(sSerialNumber));
SetString(Result, sSerialNumber, SizeOf(sSerialNumber));
end;
end;

end.

在WIN2000下绝对正确
ljl0206 2003-05-13
  • 打赏
  • 举报
 回复
http://www.csdn.net/cnshare/soft/15/15890.shtm
myling 2003-04-02
  • 打赏
  • 举报
 回复
晕，原来(嘟嘟狼)已经贴出来了

算了算了，当帮你up了

myling 2003-04-02
  • 打赏
  • 举报
 回复
用这个试试，用汇编的哦




type
MIDPtr = ^MIDRec;
MIDRec = Record
InfoLevel: word;
SerialNum: LongInt;
VolLabel: Packed Array [0..10] of Char;
FileSysType: Packed Array [0..7] of Char;
end;

function GetDriveSerialNum(MID: MIDPtr; drive: Word): Boolean; assembler;
asm
push DS { Just for safety, I dont think its really needed }
mov ax,440Dh { Function Get Media ID }
mov bx,drive { drive no (0-Default, 1-A ...) }
mov cx,0866h { category and minor code }
lds dx,MID { Load pointeraddr. }
call DOS3Call { Supposed to be faster than INT 21H }
jc @@err
mov al,1 { No carry so return TRUE }
jmp @@ok
@@err:
mov al,0 { Carry set so return FALSE }
@@ok:
pop DS { Restore DS, were not supposed to change it }
end;

procedure TForm1.NrBtnClick(Sender: TObject);
var
Info: MIDRec;
begin
Info.InfoLevel:=0; { Information Level }
If GetDriveSerialNum(@Info,0) then { Do something with it... }
ListBox.Items.Add(IntToStr(Info.SerialNum)+' '+Info.VolLabel);
end;
////////////////////////////////////////////////////
BOOL GetVolumeInformation(

LPCTSTR lpRootPathName, // address of root directory of the file system
LPTSTR lpVolumeNameBuffer, // address of name of the volume
DWORD nVolumeNameSize, // length of lpVolumeNameBuffer
LPDWORD lpVolumeSerialNumber, // address of volume serial number
LPDWORD lpMaximumComponentLength, // address of system's maximum filename length
LPDWORD lpFileSystemFlags, // address of file system flags
LPTSTR lpFileSystemNameBuffer, // address of name of file system
DWORD nFileSystemNameSize // length of lpFileSystemNameBuffer
);



想清楚了再用，出什么事部负责的：-）
ksaiy 2003-04-01
  • 打赏
  • 举报
 回复
你的系统是什么?
好像在XP下面读不出来!
fancier 2003-03-31
  • 打赏
  • 举报
 回复
参考这里
http://expert.csdn.net/Expert/topic/1573/1573839.xml?temp=.8510095
FrameSniper 2003-03-31
  • 打赏
  • 举报
 回复
楼上的各位，负责点啊，你们给出的程序自己都真正的实验过吗？

我目前在网络上找到的读硬盘出厂序列号（不是格式化卷表号）的程序没有一个可以编译通过的！
duduwolf 2003-03-31
  • 打赏
  • 举报
 回复
获取磁盘序列号
lrsct


摘　要：不是取得卷标号，而是物理ID号
关键字：磁盘序列号
类　别：系统控制


type
MIDPtr = ^MIDRec;
MIDRec = Record
InfoLevel: word;
SerialNum: LongInt;
VolLabel: Packed Array [0..10] of Char;
FileSysType: Packed Array [0..7] of Char;
end;

function GetDriveSerialNum(MID: MIDPtr; drive: Word): Boolean; assembler;
asm
push DS { Just for safety, I dont think its really needed }
mov ax,440Dh { Function Get Media ID }
mov bx,drive { drive no (0-Default, 1-A ...) }
mov cx,0866h { category and minor code }
lds dx,MID { Load pointeraddr. }
call DOS3Call { Supposed to be faster than INT 21H }
jc @@err
mov al,1 { No carry so return TRUE }
jmp @@ok
@@err:
mov al,0 { Carry set so return FALSE }
@@ok:
pop DS { Restore DS, were not supposed to change it }
end;

procedure TForm1.NrBtnClick(Sender: TObject);
var
Info: MIDRec;
begin
Info.InfoLevel:=0; { Information Level }
If GetDriveSerialNum(@Info,0) then { Do something with it... }
ListBox.Items.Add(IntToStr(Info.SerialNum)+' '+Info.VolLabel);
end;



--------------------------------------------------------------------------------
BOOL GetVolumeInformation(

LPCTSTR lpRootPathName, // address of root directory of the file system
LPTSTR lpVolumeNameBuffer, // address of name of the volume
DWORD nVolumeNameSize, // length of lpVolumeNameBuffer
LPDWORD lpVolumeSerialNumber, // address of volume serial number
LPDWORD lpMaximumComponentLength, // address of system's maximum filename length
LPDWORD lpFileSystemFlags, // address of file system flags
LPTSTR lpFileSystemNameBuffer, // address of name of file system
DWORD nFileSystemNameSize // length of lpFileSystemNameBuffer
);



--------------------------------------------------------------------------------


获取SCSI硬盘序列号

问题提出/摘要:

对于IDE硬盘，你可以使用S.M.A.R.T. API的函数来获取序列号。但对SCSI硬盘，它无法工作。但我们可以使用DeviceIoControl来获取DeviceIoControl设备序列号.





回答:

下面是代码：

program ScsiSN;



// 目的：简单的控制台程序来显示SCSI硬盘的序列号



{$APPTYPE CONSOLE}



uses

Windows, SysUtils;



//-------------------------------------------------------------

function GetDeviceHandle( sDeviceName : String ) : THandle;

begin

Result := CreateFile( PChar('\\.\'+sDeviceName),

GENERIC_READ or GENERIC_WRITE,

FILE_SHARE_READ or FILE_SHARE_WRITE,

nil, OPEN_EXISTING, 0, 0 )

end;



//-------------------------------------------------------------

function ScsiHddSerialNumber( DeviceHandle : THandle ) : String;

{$ALIGN ON}

type

TScsiPassThrough = record

Length : Word;

ScsiStatus : Byte;

PathId : Byte;

TargetId : Byte;

Lun : Byte;

CdbLength : Byte;

SenseInfoLength : Byte;

DataIn : Byte;

DataTransferLength : ULONG;

TimeOutValue : ULONG;

DataBufferOffset : DWORD;

SenseInfoOffset : ULONG;

Cdb : Array[0..15] of Byte;

end;

TScsiPassThroughWithBuffers = record

spt : TScsiPassThrough;

bSenseBuf : Array[0..31] of Byte;

bDataBuf : Array[0..191] of Byte;

end;

{ALIGN OFF}

var dwReturned : DWORD;

len : DWORD;

Buffer : Array[0..255] of Byte;

sptwb : TScsiPassThroughWithBuffers absolute Buffer;

begin

Result := '';

FillChar(Buffer,SizeOf(Buffer),#0);

with sptwb.spt do

begin

Length := SizeOf(TScsiPassThrough);

CdbLength := 6; // CDB6GENERIC_LENGTH

SenseInfoLength := 24;

DataIn := 1; // SCSI_IOCTL_DATA_IN

DataTransferLength := 192;

TimeOutValue := 2;

DataBufferOffset := PChar(@sptwb.bDataBuf)-PChar(@sptwb);

SenseInfoOffset := PChar(@sptwb.bSenseBuf)-PChar(@sptwb);

Cdb[0] := $12; // OperationCode := SCSIOP_INQUIRY;

Cdb[1] := $01; // Flags := CDB_INQUIRY_EVPD; Vital product data

Cdb[2] := $80; // PageCode Unit serial number

Cdb[4] := 192; // AllocationLength

end;

len := sptwb.spt.DataBufferOffset+sptwb.spt.DataTransferLength;

if DeviceIoControl( DeviceHandle, $0004d004, @sptwb, SizeOf(TScsiPassThrough), @sptwb, len, dwReturned, nil )

and ((PChar(@sptwb.bDataBuf)+1)^=#$80)

then

SetString( Result, PChar(@sptwb.bDataBuf)+4,

Ord((PChar(@sptwb.bDataBuf)+3)^) );

end;





//=============================================================

var

hDevice : THandle = 0;

sSerNum, sDeviceName : String;



begin

sDeviceName := ParamStr(1);

if sDeviceName='' then

begin

WriteLn;

WriteLn('Display SCSI-2 device serial number.');

WriteLn;

WriteLn('Using:');

WriteLn;

if Win32Platform=VER_PLATFORM_WIN32_NT then // Windows NT/2000

WriteLn(' ScsiSN PhysicalDrive0')

else

WriteLn(' ScsiSN C:');

WriteLn(' ScsiSN Cdrom0');

WriteLn(' ScsiSN Tape0');

WriteLn;

Exit;

end;

hDevice := GetDeviceHandle(sDeviceName);

if hDevice=INVALID_HANDLE_VALUE then

WriteLn('Error on GetDeviceHandle: ',SysErrorMessage(GetLastError))

else

try

sSerNum := ScsiHddSerialNumber(hDevice);

if sSerNum='' then

WriteLn('Error on DeviceIoControl: ',

SysErrorMessageGetLastError))

else

WriteLn('Device '+sDeviceName

+' serial number = "',sSerNum,'"');

finally

CloseHandle(hDevice);

end;

end.



// 以下站点可获取更多关于SCSI命令的信息:

// ftp://ftp.t10.org/t10/drafts/scsi-1/



// ftp://ftp.t10.org/t10/drafts/spc/



// ftp://ftp.t10.org/t10/drafts/spc2/



--------------------------------------------------------------------------------


获取光盘序列号

uses MMSystem, MPlayer;

procedure TForm1.Button1Click(Sender: TObject);
var
mp : TMediaPlayer;
msp : TMCI_INFO_PARMS;
MediaString : array[0..255] of char;
ret : longint;
begin
mp := TMediaPlayer.Create(nil);
mp.Visible := false;
mp.Parent := Application.MainForm;
mp.Shareable := true;
mp.DeviceType := dtCDAudio;
mp.FileName := 'D:';
mp.Open;
Application.ProcessMessages;
FillChar(MediaString, sizeof(MediaString), #0);
FillChar(msp, sizeof(msp), #0);
msp.lpstrReturn := @MediaString;
msp.dwRetSize := 255;
ret := mciSendCommand(Mp.DeviceId,
MCI_INFO,
MCI_INFO_MEDIA_IDENTITY,
longint(@msp));
if Ret <> 0 then begin
MciGetErrorString(ret, @MediaString, sizeof(MediaString));
Memo1.Lines.Add(StrPas(MediaString));
end else
Memo1.Lines.Add(StrPas(MediaString));
mp.Close;
Application.ProcessMessages;
mp.free;
end;

end.

qwertyasd 2003-03-31
  • 打赏
  • 举报
 回复
function GetHDSerialNumber: LongInt; //得到硬盘序列号
{$IFDEF WIN32}
var
pdw : pDWord;
mc, fl : dword;
{$ENDIF}
begin
{$IfDef WIN32}
New(pdw);
GetVolumeInformation('c:\',nil,0,pdw,mc,fl,nil,0);
Result := pdw^;
dispose(pdw);
{$ELSE}
Result := GetWinFlags;
{$ENDIF}
end;
qxj 2003-03-31
  • 打赏
  • 举报
 回复
GZ
ESXi中的群晖Synology存储空间扩容
跑在ESXi下的黑裙，当时随便输入了一个23GB硬盘，且只有一个硬盘。跑着发现空间不够了。所以有了下面的故事。 搜遍全网也没有地方看到可以修改。只能自己想办法了。 通过搜索发现群晖用的MD来实现RAID条带。 那就变成了修改MD设备的容量大小的问题了。 找到一个关于mdadm修改Raid容量的文章，可以参考：http://www.wdroot.com/articles/61.html 还有这里：https://documentation.suse.com/zh-cn/sles/12-SP4/htm
6月2日
6月2日 相信我,你也能变成光 编程语言的分类: 机器语言:直接用二进制指令编写程序 优点:运行速度快 缺点:编写复杂 指令记忆困难 汇编语言:用英语标签取代二进制指令去编写程序 高级语言:用人类能理解的表达方式去编写程序,需要经过翻译才能被计算机理解 按照翻译方式的不同又分为:编译型,解释型 编译型:编译器会把源程序翻译成计算机语言,只需要翻译一次 (c,go) 解释型:每次运行程序都需要被解释器来翻译 (python, shell) 运行效率 机器语言>汇编>高级语言(编译型
机会来了，作为programmer,你都抓住了吗？
作为技术员，机会不如跑市场的多。不过，机会还是时刻都有的，就看你的眼睛有没有发现。下面列出的机会，你都抓住了吗？ 1 公司成立新部门。 一开始经理发现，用EXCEL管理成千上万条数据，没有系统化的管理，查起数据来真是痛苦，硬盘灯在那里狂亮，还是找不到要找的资料。于是让自己部门中懂电脑的同事，有空的时候做点程序，小工具，就算是把EXCEL数据直接导到系统中也行，这样查起来方便。于是...
怎样刻好刻录光盘面面观
在电脑技术飞速发展的今天，存储媒介也在飞速的变化。因为像磁盘这样存储容量小的存储媒介以经不能满足用户的需要，所以像光盘这样大容量的存储媒介就渐渐的走进了一般用户的日常生活。但是刻一张光盘不象大家想象的那么容易，它需要具备一定的专业知识，否则很容易出现“盘毁机亡”的现象。所以笔者为了使各位朋友减少不必要的麻烦，在这里就把自己的一点儿刻盘经验给已经打算把光盘作为存储数据的媒介的朋友总结一下，以供大家参...
通过机器码获得注册码的完整方案
oceanwave (2002-12-2 19:8) 1479167 想加密自己的软件，看过一些软件的作法，思路如下：1、用户安装后，得出本机的机器码（硬盘的序列号，不想用网卡，因为很多机器没有网卡）。生成机器码代码，150分2、用户将该机器码EMAIL给我，我用该机器码生成一个注册码，发送给用户。注册码生成代码，150分3、用户在程序中输入该注册码，程序逆算该注册码，与机器码核对，查看是否相符。
语言基础/算法/系统设计

16,748

社区成员

33,247

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章