取硬盘序列号

系统结构:ChangeByteOrder,hdid9x,hdidnt,GetHDID,DetectIDE,ByteArrToString,字符处理,GetVersionEx,CreateFile,DeviceIoControl1,DeviceIoControl,CloseHandle,CopyMemory1,CopyMemory,VarPtr,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ ChangeByteOrder
           |  |
           |  |------ hdid9x
           |  |
           |  |------ hdidnt
           |  |
           |  |------ GetHDID
           |  |
           |  |------ DetectIDE
           |  |
           |  |------ ByteArrToString
           |  |
           |  |------ 字符处理
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetVersionEx
           |  |
           |  |---[dll]------   CreateFile
           |  |
           |  |---[dll]------   DeviceIoControl1
           |  |
           |  |---[dll]------   DeviceIoControl
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   CopyMemory1
           |  |
           |  |---[dll]------   CopyMemory
           |  |
           |  |---[dll]------   VarPtr

调用的DLL命令:

.DLL命令 GetVersionEx, 整数型, "kernel32", "GetVersionExA"
    .参数 LpVersionInformation, OSVERSIONINFO

.DLL命令 CreateFile, 整数型, "kernel32", "CreateFileA"
    .参数 lpFileName, 文本型
    .参数 dwDesiredAccess, 整数型
    .参数 dwShareMode, 整数型
    .参数 lpSecurityAttributes, 整数型
    .参数 dwCreationDisposition, 整数型
    .参数 dwFlagsAndAttributes, 整数型
    .参数 hTemplateFile, 整数型

.DLL命令 DeviceIoControl1, 整数型, "kernel32", "DeviceIoControl", , 易语言没有any类型的参数接口，只好分别做两个了
    .参数 hDevice, 整数型
    .参数 dwIoControlCode, 整数型
    .参数 lpInBuffer, TSENDCMDINPARAMS, , 原any类型（变形体类型）
    .参数 nInBufferSize, 整数型
    .参数 lpOutBuffer, TSENDCMDOUTPARAMS, , 原any类型（变形体类型）
    .参数 nOutBufferSize, 整数型
    .参数 lpBytesReturned, 整数型
    .参数 lpOverlapped, OVERLAPPED

.DLL命令 DeviceIoControl, 整数型, "kernel32", "DeviceIoControl", , 易语言没有any类型的参数接口，只好分别做两个了
    .参数 hDevice, 整数型
    .参数 dwIoControlCode, 整数型
    .参数 lpInBuffer, 整数型, , 原any类型（变形体类型）
    .参数 nInBufferSize, 整数型
    .参数 lpOutBuffer, TGETVERSIONOUTPARAMS, 传址, 原any类型（变形体类型）
    .参数 nOutBufferSize, 整数型
    .参数 lpBytesReturned, 整数型
    .参数 lpOverlapped, OVERLAPPED

.DLL命令 CloseHandle, 整数型, "kernel32", "CloseHandle"
    .参数 hObject, 整数型

.DLL命令 CopyMemory1, , "kernel32", "RtlMoveMemory", , 易语言没有any类型的参数接口，只好分别做两个了
    .参数 hpvDest, 字节型, 传址, 原any类型（变形体类型）
    .参数 hpvSource, 字节型, 传址, 原any类型（变形体类型）
    .参数 cbCopy, 整数型

.DLL命令 CopyMemory, , "kernel32", "RtlMoveMemory", , 易语言没有any类型的参数接口，只好分别做两个了
    .参数 hpvDest, TIDSECTOR, 传址, 原any类型（变形体类型）
    .参数 hpvSource, 字节型, 传址, 原any类型（变形体类型）
    .参数 cbCopy, 整数型

.DLL命令 VarPtr, 整数型, "GetVarPtr.Dll", "VarPtr"
    .参数 数据, 整数型, 传址