摘要：
在网上搜了一个ping函数，用到pchar(string),编译时出现这个错误，其实以前也碰到这个问题：delphi7版本中的Pcharh函数在delphi2010中使用时，编译时出现错误：E2010 Incompatible types: 'Char' and 'AnsiChar'这时可以这样使用：PAnsiChar(AnsiString(string)); 说明：在delpin中之前，Char对应的是AnsiChar，PChar对应PAnsiChar，string（未映射成老的ShortString）对应AnsiString；而在delphi2010里，对应 阅读全文
摘要：
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... 阅读全文
摘要：
{获取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 阅读全文
摘要：
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 阅读全文
摘要：
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 阅读全文
摘要：
键盘键值汇总功能键键值 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 阅读全文
摘要：
//结构体的比较普遍的两用法，具体还是得靠多看例子，帮助等。//1.作为一个对象结构型使用typeTclassRecord=recordrDate:string;rTime:string;end;//2.作为记录类型(数据协议解析时比较多使用,灵活方便)//首先枚举几种数据类型typeTDateType=(TFullData,TRedDate,TReadTime);typeTtextRecord=recordcasei:TDateTypeof//FullData与下面所有的变量,共享同一个内存区域,各个子类自己定义就可以了，i并无实际意义。//TtextRecord作为一个字符串的形式存在内存 阅读全文
摘要：
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 阅读全文
摘要：
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; 阅读全文
摘要：
最近在Delphi下写软件，需要将数据转换为BCD码和将BCD码转换为其它数据类型，从网上搜索了一下，没有发现好的函数，于是就想自定义函数来完成BCD与其它格式的数据转换功能。但最终没有动手写，先查查Delphi的帮助吧。结果一查才发现Delphi还真的直接支持BCD码的数据。现将Delphi对BCD码的支持资料大致介绍一番： 首先，Delphi支持的BCD码的数据类型名为TBCD，它的定义如下：type TBcd = packed record Precision: Byte; { 精度，1..64 } SignSpecialPlaces: Byte; { 符号位等信息的组合，按位表示，D. 阅读全文