正文内容加载中...
posted @ 2013-01-06 11:41 马儿快跑 阅读(3646) 评论(0) 推荐(0) 编辑
摘要: 1 unit UAccessOperate; 2 3 interface 4 5 uses Windows, Sysutils, ComObj, Dialogs, ActiveX; 6 7 8 9 //修改ACCESS数据库密码 10 function ChangeDatabasePassword(AFileName,AOldPassWord,ANewPassWord:string):boolean; 11 12 //压缩与修复数据库,覆盖源文件 13 function CompactDatabase(AFileName,APassWord:string):bool... 阅读全文
posted @ 2012-12-27 10:38 马儿快跑 阅读(2192) 评论(0) 推荐(0) 编辑
摘要: {获取SCSI硬盘出厂系列号需要系统管理员权限,不支持磁盘阵列这里只取了第0个或第1个硬盘的序列号}function GetScsiSerialNumber(const i: smallint): string;typeTScsiPassThrough =recordLength: Word;ScsiStatus: Byte;PathId: Byte;TargetId: Byte;Lun: Byte;CdbLength: Byte;SenseInfoLength: Byte;DataIn: Byte;DataTransferLength: ULONG;TimeOutValue: ULONG;D 阅读全文
posted @ 2012-12-19 08:58 马儿快跑 阅读(2391) 评论(0) 推荐(0) 编辑
摘要: Delphi进制转换(二进制/十进制/十六进制) 2009-11-27 11:42:24| 分类: 计算机知识 | 标签: |字号大中小 订阅 .Delphi进制转换(二进制/十进制/十六进制)2008-08-29 10:24一、完全用API完成:..uses Windows;function IntToStr(I: integer): string;begin Str(I, Result);end;function StrToInt(S: string): integer;beginVal(S, Result, Result);end;function HexToInt(Const HexV 阅读全文
posted @ 2012-12-12 19:14 马儿快跑 阅读(13111) 评论(0) 推荐(0) 编辑
摘要: 1、通过IP取MAC地址usesWinSock;Function sendarp(ipaddr:ulong;temp:dword;ulmacaddr:pointer;ulmacaddrleng:pointer) : DWord; StdCall; External 'Iphlpapi.dll' Name 'SendARP';procedure TForm1.Button1Click(Sender: TObject);varmyip:ulong;mymac:array[0..5] of byte;mymaclength:ulong;r:integer;beginm 阅读全文
posted @ 2012-12-07 09:43 马儿快跑 阅读(2276) 评论(0) 推荐(0) 编辑
摘要: 键盘键值汇总功能键键值 ESC键: (27) 回车键: (13) TAB键: (9) CapsLock键: (20) Shift键: ($10) Ctrl键: (17) Alt键: (18) 空格键: ($20/32) 退格键: (8) 左徽标键: (91) 右徽标键: (92) 鼠标右键快捷键: (93) Insert键: (45) Home键: (36) PageUp: (33) PageDown: (34) End键: (35) Delete键: (46) 方向键(←): (37) 方向键(↑): (38) 方向键(→): (39) 方向键(↓): (40) 快捷键键值 F1键: (11 阅读全文
posted @ 2012-12-06 17:45 马儿快跑 阅读(467) 评论(1) 推荐(0) 编辑
摘要: //结构体的比较普遍的两用法,具体还是得靠多看例子,帮助等。//1.作为一个对象结构型使用typeTclassRecord=recordrDate:string;rTime:string;end;//2.作为记录类型(数据协议解析时比较多使用,灵活方便)//首先枚举几种数据类型typeTDateType=(TFullData,TRedDate,TReadTime);typeTtextRecord=recordcasei:TDateTypeof//FullData与下面所有的变量,共享同一个内存区域,各个子类自己定义就可以了,i并无实际意义。//TtextRecord作为一个字符串的形式存在内存 阅读全文
posted @ 2012-12-06 15:32 马儿快跑 阅读(4675) 评论(0) 推荐(0) 编辑
摘要: function GetIdeNum String;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; bSectorCountR 阅读全文
posted @ 2012-11-29 14:59 马儿快跑 阅读(575) 评论(0) 推荐(0) 编辑
摘要: usesIdGlobal 十进制转换成BCD码函数 functionTForm1.inttobcd(x:Integer):string; vars,s1:string; i,j,x1:Integer; begins:=IntToStr(x); i:=Length(s); result:=''; forj:=1toidobeginx1:=StrToInt(s[j]); s1:=inttobin(x1); s1:=Copy(s1,Length(s1)-3,4); result:=result+s1; end; end; 阅读全文
posted @ 2012-11-28 17:36 马儿快跑 阅读(3506) 评论(0) 推荐(0) 编辑
摘要: 最近在Delphi下写软件,需要将数据转换为BCD码和将BCD码转换为其它数据类型,从网上搜索了一下,没有发现好的函数,于是就想自定义函数来完成BCD与其它格式的数据转换功能。但最终没有动手写,先查查Delphi的帮助吧。结果一查才发现Delphi还真的直接支持BCD码的数据。现将Delphi对BCD码的支持资料大致介绍一番: 首先,Delphi支持的BCD码的数据类型名为TBCD,它的定义如下:type TBcd = packed record Precision: Byte; { 精度,1..64 } SignSpecialPlaces: Byte; { 符号位等信息的组合,按位表示,D. 阅读全文
posted @ 2012-11-14 14:04 马儿快跑 阅读(3444) 评论(0) 推荐(0) 编辑