|
关于image控件的图片 TO 剪贴板的问题
能否详细一些呢 |
|
[求助]一段汇编代码求助修改成可以用的delphi内联汇编
自己写一个加密函数不就结了 |
|
[求助]求懂VC和DELPHI的大侠帮忙
貌似远线程注入啊 |
|
[求助]Dll中如何调用其他Dll的函数
这和调用普通函数有区别吗 |
|
DLL资源问题,急
这个容易 小虾米都会 |
|
[原创]小技巧 分卷压缩
晕 晕 乎 乎 |
|
关于获取硬盘序列号的问题 最后一步不会弄了
这样也不行 请高手指点一下 谢谢 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 GetDriveGeometry():pchar; stdcall; const IDENTIFY_BUFFER_SIZE = 512; type TSendCmdOutParams = packed record cBufferSize : DWORD; DriverStatus : TDriverStatus; bBuffer : Array[0..0] of BYTE; 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; var hDevice: THandle; dTemp: DWord; stin:tSENDCMDINPARAMS; stout:Array [0..(SizeOf(TSendCmdOutParams)+IDENTIFY_BUFFER_SIZE-1)-1] of Byte; IdOutCmd : TSendCmdOutParams absolute stout; begin Result:=nil; hDevice:= CreateFile('\\.\PhysicalDrive0',GENERIC_READ or GENERIC_WRITE,FILE_SHARE_READ or FILE_SHARE_WRITE, nil,OPEN_EXISTING,0,0); if hDevice = INVALID_HANDLE_VALUE then showmessage('open disk fail'); FillChar(stin,SizeOf(TSendCmdInParams)-1,#0); FillChar(stout,SizeOf(stout),#0); dtemp:=0; stin.irDriveRegs.bSectorCountReg :=1; stin.irDriveRegs.bSectorNumberReg:=1; stin.irDriveRegs.bDriveHeadReg :=$A0; stin.irDriveRegs.bCommandReg:=$0ec; stin.cBufferSize :=IDENTIFY_BUFFER_SIZE; if not DeviceIoControl(hDevice,$0007C088,@stIn,sizeof(SENDCMDINPARAMS)-1,@stOut,sizeof(stout),dtemp,nil) then showmessage(inttostr(getlasterror())); with PIdSector(@IdOutCmd.bBuffer)^ do begin ChangeByteOrder(stout, SizeOf(stout)); (PChar(@stout)+SizeOf(stout))^:= #0; Result := PChar(@stout); end; CloseHandle(hDevice); end; |
|
[原创]一个急速关机的小程序
不用驱动就可以端口操作 |
|
[原创]逆向Sysnap的注册表保护驱动[附源码]
不是大米译过了吗 |
|
各位,如何能够枚举到当前所有打开的IE窗体
具体呢 如何判断 |
|
[原创]发表一入门级代码
用的快照啊 我还以为是NtQueryInformationProcess |
|
[求助]请问ZwCreateSection函数的定义在哪一个头文件里?
GetProcAddress(LoadLibrary('ntdll.dll'),‘ZwCreateSection’); |
|
[求助][原创]写了个虚拟桌面程序
无 代 码 |
|
[求助]请问怎样才可以枚举system中线程并得到其启动地址
恩 ,我也遇到这个问题 关注。。。。 |
|
[注意]管理为什么把我帖子关闭了哦!问些问题也会被关闭?
ID 不好 呵呵 |
|
THREAD_ALL_ACCESS 到底等于多少啊 在哪个头文件里呢
问题在图片中,请各位看看 谢谢了 |
操作理由
RANk
{{ user_info.golds == '' ? 0 : user_info.golds }}
雪币
{{ experience }}
课程经验
{{ score }}
学习收益
{{study_duration_fmt}}
学习时长
基本信息
荣誉称号:
{{ honorary_title }}
能力排名:
No.{{ rank_num }}
等 级:
LV{{ rank_lv-100 }}
活跃值:
在线值:
浏览人数:{{ visits }}
最近活跃:{{ last_active_time }}
注册时间:{{ user_info.create_date_jsonfmt }}
勋章
兑换勋章
证书
证书查询 >
能力值