delphi7序列号？windows7 delphi 获取硬盘序列号.物理序列号

大家好，今天给各位分享delphi7序列号的一些知识，其中也会对windows7 delphi 获取硬盘序列号.物理序列号进行解释，文章篇幅可能偏长，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在就马上开始吧！

windows7 delphi 获取硬盘序列号.物理序列号

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1= class(TForm)

Edit1: TEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations}

public

{ Public declarations}

end;

var

Form1: TForm1;

implementation

{$R*.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

end;

//获得硬盘序列号

function GetIdeSerialNumber: pchar;

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

//驱动器返回的错误代码，无错则返回0

bDriverError: Byte;

// IDE出错寄存器的内容，只有当bDriverError为 SMART_IDE_ERROR时有效

bIDEStatus: Byte;

bReserved: array[0..1] of Byte;

dwReserved: array[0..1] of DWORD;

end;

TSendCmdOutParams= packed record

// bBuffer的大小

cBufferSize: DWORD;

//驱动器状态

DriverStatus: TDriverStatus;

//用于保存从驱动器读出的数据的缓冲区，实际长度由cBufferSize决定

bBuffer: array[0..0] of BYTE;

end;

var

hDevice: Thandle;

cbBytesReturned: DWORD;

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:='';//如果出错则返回空串

if SysUtils.Win32Platform= VER_PLATFORM_WIN32_NT then begin// Windows NT, Windows 2000

//提示!改变名称可适用于其它驱动器，如第二个驱动器：'\\.\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;

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Text:= strpas(GetIdeSerialNumber);

end;

end.

{新建工程，把代码粘进去，添加一个edit和一个

button命名和里面一样就行。在xp环境调试过，你试试吧}

delphi7安装教程 delphi7安装序列号

Delphi 7安装教程及序列号

一、Delphi 7安装教程

下载安装包：

从官方网站或可靠的软件下载平台下载Delphi 7的安装包。确保下载的安装包完整且未损坏。运行安装包：

双击安装包，按照提示进行安装。在安装过程中，可能会要求你选择安装路径和组件。安装序列号：

在安装过程中，系统会要求你输入序列号。你需要提前准备好有效的Delphi 7序列号。序列号通常随购买的软件一起提供，或者可以在购买时从供应商处获取。完成安装：

按照提示完成安装过程。安装完成后，你可以通过桌面快捷方式或开始菜单启动Delphi 7 IDE（集成开发环境）。二、Delphi 7序列号获取

官方购买：

最直接且合法的方式是通过官方渠道购买Delphi 7，购买时会提供有效的序列号。旧版授权：

如果你之前已经购买了Delphi 7或相关版本，并且仍然拥有有效的授权，你可以使用之前的序列号进行安装。注意：

请勿使用非法或未经授权的序列号进行安装，这可能导致软件无法正常使用或面临法律风险。三、安装后配置

插件安装：

Delphi 7支持多种第三方插件和控件，如FastReport等。你可以根据需要下载并安装这些插件，以增强Delphi 7的功能。环境设置：

在Delphi 7 IDE中，你可以根据自己的喜好和项目需求进行环境设置，如调整字体大小、颜色主题等。项目创建：

使用Delphi 7 IDE创建新的项目，并开始你的编程之旅。总结：

Delphi 7是一款功能强大的集成开发环境，适用于Windows平台的应用程序开发。在安装Delphi 7时，需要准备好有效的序列号，并按照安装向导的提示进行操作。安装完成后，你可以根据自己的需求进行环境设置和插件安装，以提升开发效率和项目质量。

delphi7在win7 64位上的安装

Delphi7在Windows7 64位系统上的安装步骤如下：

准备工作工具/原料：Delphi 7安装包、Delphi7序列生成器。安装流程启动安装程序：下载并打开Delphi 7安装包和序列生成器，双击Delphi安装程序开始安装。

安装初期会弹出“程序兼容性助手”提示框，选择忽略并勾选“不再显示此提示”。

输入序列号：打开序列生成器，将生成的序列号填入Delphi安装界面的对应位置，点击“Next”继续安装。

选择安装选项：选择默认安装选项，在“Use VisiBroker/CORBA support”选项中，可忽略（因该功能现已较少使用），或保持默认设置，单击“Next”进入下一步。

设置安装路径：安装向导会提示默认安装路径，可点击“Change”按钮选择其他目录，或在编辑框中直接输入路径。

建议：采用默认路径，并勾选“安装数据库”选项（卸载时需用到）。

完成安装：点击“Install”开始安装，系统将自动配置程序组件。

配置完成后，在开始菜单中找到Delphi图标，双击打开编程环境。

注意事项Interbase数据库安装：若未安装过Interbase数据库，安装过程中可能提示安装，直接点击“Next”完成即可。兼容性问题：Delphi 7为32位程序，在64位系统上需通过兼容模式运行（安装时已自动处理）。

delphi7序列号和windows7 delphi 获取硬盘序列号.物理序列号的问题分享结束啦，以上的文章解决了您的问题吗？欢迎您下次再来哦！