今天给各位分享怎样清洗打印机喷头的知识,其中也会对商务办公笔记本电脑进行解释,如果能碰巧解决你现在面临的问题,别忘了关注本站,现在开始吧!
本文导读目录:
delphi序列号(windowsdelphi获取硬盘序列号.物理序列号
怎样清洗打印机喷头(商务办公笔记本电脑)本文目录windowsdelphi获取硬盘序列号.物理序列号delphi.打开验证的时候序列号和安装的时候一样吗windowsdelphi获取硬盘序列号.物理序列号unitUnit;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm=class(TForm)Edit:TEdit;Button:TButton;procedureButtonClick(Sender:TObject);procedureButtonClick(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm:TForm;implementation{$R*.dfm}procedureTForm.ButtonClick(Sender:TObject);beginend;//获得硬盘序列号functionGetIdeSerialNumber:pchar;constIDENTIFY_BUFFER_SIZE=;typeTIDERegs=packedrecordbFeaturesReg:BYTE;//UsedforspecifyingSMART“mands“.bSectorCountReg:BYTE;//IDEsectorcountregisterbSectorNumberReg:BYTE;//IDEsectornumberregisterbCylLowReg:BYTE;//IDElowordercylindervaluebCylHighReg:BYTE;//IDEhighordercylindervaluebDriveHeadReg:BYTE;//IDEdrive/headregisterbmandReg:BYTE;//ActualIDEmand.bReserved:BYTE;//reservedforfutureuse.Mustbezero.end;TSendCmdInParams=packedrecord//BuffersizeinbytescBufferSize:DWORD;//Structurewithdriveregistervalues.irDriveRegs:TIDERegs;//Physicaldrivenumbertosendmandto(,,,).bDriveNumber:BYTE;bReserved:arrayofByte;dwReserved:arrayofDWORD;bBuffer:arrayofByte;//Inputbuffer.end;TIdSector=packedrecordwGenConfig:Word;wNumCyls:Word;wReserved:Word;wNumHeads:Word;wBytesPerTrack:Word;wBytesPerSector:Word;wSectorsPerTrack:Word;wVendorUnique:arrayofWord;sSerialNumber:arrayofCHAR;wBufferType:Word;wBufferSize:Word;wESize:Word;sFirmwareRev:arrayofChar;sModelNumber:arrayofChar;wMoreVendorUnique:Word;wDoubleWordIO:Word;wCapabilities:Word;wReserved:Word;wPIOTiming:Word;wDMATiming:Word;wBS:Word;wNumCurrentCyls:Word;wNumCurrentHeads:Word;wNumCurrentSectorsPerTrack:Word;ulCurrentSectorCapacity:DWORD;wMultSectorStuff:Word;ulTotalAddressableSectors:DWORD;wSingleWordDMA:Word;wMultiWordDMA:Word;bReserved:arrayofBYTE;end;PIdSector=^TIdSector;TDriverStatus=packedrecord//驱动器返回的错误代码,实际长度由cBufferSize决定bBuffer:arrayofBYTE;end;varhDevice:Thandle;cbBytesReturned:DWORD;SCIP:TSendCmdInParams;aIdOutCmd:arrayofByte;IdOutCmd:TSendCmdOutParamsabsoluteaIdOutCmd;procedureChangeByteOrder(varData;Size:Integer);varptr:Pchar;i:Integer;c:Char;beginptr:=Data;forI:=to(Sizeshr)-dobeginc:=ptr^;ptr^:=(ptr+)^;(ptr+)^:=c;Inc(ptr,);end;end;beginResult:=’’;//如果出错则返回空串ifSysUtils.WinPlatform=VER_PLATFORM_WIN_NTthenbegin//WindowsNT,Windows//提示!改变名称可适用于其它驱动器,你试试吧}delphi.打开验证的时候序列号和安装的时候一样吗哦这样啊你从新找一个序列号(网上很多的,只有当bDriverError为SMART_IDE_ERROR时有效bIDEStatus:Byte;bReserved:arrayofByte;dwReserved:arrayofDWORD;end;TSendCmdOutParams=packedrecord//bBuffer的大小cBufferSize:DWORD;//驱动器状态DriverStatus:TDriverStatus;//用于保存从驱动器读出的数据的缓冲区,如第二个驱动器:’\.PhysicalDrive’hDevice:=CreateFile(’\.PhysicalDrive’,GENERIC_READENERIC_WRITE,FILE_SHARE_READorFILE_SHARE_WRITE,nil,OPEN_EXISTING,,);endelse//VersionWindowsOSR,WindowshDevice:=CreateFile(’\.SMARTVSD’,,,nil,CREATE_NEW,,);ifhDevice=INVALID_HANDLE_VALUEthenExit;tryFillChar(SCIP,SizeOf(TSendCmdInParams)-,#);FillChar(aIdOutCmd,SizeOf(aIdOutCmd),#);cbBytesReturned:=;//SetupdatastructuresforIDENTIFYmand.withSCIPdobegincBufferSize:=IDENTIFY_BUFFER_SIZE;//bDriveNumber:=;withirDriveRegsdobeginbSectorCountReg:=;bSectorNumberR eg:=;//ifWinPlatform=VER_PLATFORM_WIN_NTthenbDriveHeadReg:=$A//elsebDriveHeadReg:=$Aor((bDriveNumand)shl);bDriveHeadReg:=$A;bmandReg:=$EC;end;end;ifnotDeviceIoControl(hDevice,$C,SCIP,SizeOf(TSendCmdInParams)-,aIdOutCmd,SizeOf(aIdOutCmd),cbBytesReturned,nil)thenExit;finallyCloseHandle(hDevice);end;withPIdSector(IdOutCmd.bBuffer)^dobeginChangeByteOrder(sSerialNumber,SizeOf(sSerialNumber));(Pchar(sSerialNumber)+SizeOf(sSerialNumber))^:=#;Result:=Pchar(sSerialNumber);end;end;procedureTForm.ButtonClick(Sender:TObject);beginEdit.Text:=strpas(GetIdeSerialNumber);end;end.{新建工程,你的序列号不好SN:AMD-PDJ-APMED-CDRKEY:YVX-CSN:zj-pumn-cgzqKey:rw-jw注册号:AMD-PDJ-APMED-CDRKEY:YVX-C你用用这个,无错则返回bDriverError:Byte;//IDE出错寄存器的内容,添加一个edit和一个button命名和里面一样就行。
windowsdelphi获取硬盘序列号.物理序列号
unitUnit;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm=class(TForm)Edit:TEdit;Button:TButton;procedureButtonClick(Sender:TObject);procedureButtonClick(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm:TForm;implementation{$R*.dfm}procedureTForm.ButtonClick(Sender:TObject);beginend;//获得硬盘序列号functionGetIdeSerialNumber:pchar;constIDENTIFY_BUFFER_SIZE=;typeTIDERegs=packedrecordbFeaturesReg:BYTE;//UsedforspecifyingSMART“mands“.bSectorCountReg:BYTE;//IDEsectorcountregisterbSectorNumberReg:BYTE;//IDEsectornumberregisterbCylLowReg:BYTE;//IDElowordercylindervaluebCylHighReg:BYTE;//IDEhighordercylindervaluebDriveHeadReg:BYTE;//IDEdrive/headregisterbmandReg:BYTE;//ActualIDEmand.bReserved:BYTE;//reservedforfutureuse.Mustbezero.end;TSendCmdInParams=packedrecord//BuffersizeinbytescBufferSize:DWORD;//Structurewithdriveregistervalues.irDriveRegs:TIDERegs;//Physicaldrivenumbertosendmandto(,,,).bDriveNumber:BYTE;bReserved:arrayofByte;dwReserved:arrayofDWORD;bBuffer:arrayofByte;//Inputbuffer.end;TIdSector=packedrecordwGenConfig:Word;wNumCyls:Word;wReserved:Word;wNumHeads:Word;wBytesPerTrack:Word;wBytesPerSector:Word;wSectorsPerTrack:Word;wVendorUnique:arrayofWord;sSerialNumber:arrayofCHAR;wBufferType:Word;wBufferSize:Word;wESize:Word;sFirmwareRev:arrayofChar;sModelNumber:arrayofChar;wMoreVendorUnique:Word;wDoubleWordIO:Word;wCapabilities:Word;wReserved:Word;wPIOTiming:Word;wDMATiming:Word;wBS:Word;wNumCurrentCyls:Word;wNumCurrentHeads:Word;wNumCurrentSectorsPerTrack:Word;ulCurrentSectorCapacity:DWORD;wMultSectorStuff:Word;ulTotalAddressableSectors:DWORD;wSingleWordDMA:Word;wMultiWordDMA:Word;bReserved:arrayofBYTE;end;PIdSector=^TIdSector;TDriverStatus=packedrecord//驱动器返回的错误代码,无错则返回bDriverError:Byte;//IDE出错寄存器的内容,只有当bDriverError为SMART_IDE_ERROR时有效bIDEStatus:Byte;bReserved:arrayofByte;dwReserved:arrayofDWORD;end;TSendCmdOutParams=packedrecord//bBuffer的大小cBufferSize:DWORD;//驱动器状态DriverStatus:TDriverStatus;//用于保存从驱动器读出的数据的缓冲区,实际长度由cBufferSize决定bBuffer:arrayofBYTE;end;varhDevice:Thandle;cbBytesReturned:DWORD;SCIP:TSendCmdInParams;aIdOutCmd:arrayofByte;IdOutCmd:TSendCmdOutParamsabsoluteaIdOutCmd;procedureChangeByteOrder(varData;Size:Integer);varptr:Pchar;i:Integer;c:Char;beginptr:=Data;forI:=to(Sizeshr)-dobeginc:=ptr^;ptr^:=(ptr+)^;(ptr+)^:=c;Inc(ptr,);end;end;beginResult:=’’;//如果出错则返回空串ifSysUtils.WinPlatform=VER_PLATFORM_WIN_NTthenbegin//WindowsNT,Windows//提示!改变名称可适用于其它驱动器,如第二个驱动器:’\.PhysicalDrive’hDevice:=CreateFile(’\.PhysicalDrive’,GENERIC_READENERIC_WRITE,FILE_SHARE_READorFILE_SHARE_WRITE,nil,OPEN_EXISTING,,);endelse//VersionWindowsOSR,WindowshDevice:=CreateFile(’\.SMARTVSD’,,,nil,CREATE_NEW,,);ifhDevice=INVALID_HANDLE_VALUEthenExit;tryFillChar(SCIP,SizeOf(TSendCmdInParams)-,#);FillChar(aIdOutCmd,SizeOf(aIdOutCmd),#);cbBytesReturned:=;//SetupdatastructuresforIDENTIFYmand.withSCIPdobegincBufferSize:=IDENTIFY_BUFFER_SIZE;//bDriveNumber:=;withirDriveRegsdobeginbSectorCountReg:=;bSectorNumberReg:=;//ifWinPlatform=VER_PLATFORM_WIN_NTthenbDriveHeadReg:=$A//elsebDriveHeadReg:=$Aor((bDriveNumand)shl);bDriveHeadReg:=$A;bmandReg:=$EC;end;end;ifnotDeviceIoControl(hDevice,$C,SCIP,SizeOf(TSendCmdInParams)-,aIdOutCmd,SizeOf(aIdOutCmd),cbBytesReturned,nil)thenExit;finallyCloseHandle(hDevice);end;withPIdSector(IdOutCmd.bBuffer)^dobeginChangeByteOrder(sSerialNumber,SizeOf(sSerialNumber));(Pchar(sSerialNumber)+SizeOf(sSerialNumber))^:=#;Result:=Pchar(sSerialNumber);end;end;procedureTForm.ButtonClick(Sender:TObject);beginEdit.Text:=strpas(GetIdeSerialNumber);end;end.{新建工程,把代码粘进去,添加一个edit和一个button命名和里面一样就行。在xp环境调试过,你试试吧}
商务办公笔记本电脑高性能处理器手机(性能比较强的手机)
本文主要介绍高性能处理器手机(性能比较强的手机),下面一起看看高性能处理器手机(性能比较强的手机)相关资讯。
手机的处理器越强,性能越强,体验越流畅。如果追求极致性能,一定要选择搭载强大处理器的手机,用起来会非常流畅怎样清洗打印机喷头(商务办公笔记本电脑)。
怎样清洗打印机喷头的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于商务办公笔记本电脑、怎样清洗打印机喷头的信息别忘了在本站进行查找喔。