摘要：
PPersion=^TPersion; TPersion=packed record Name:string; Sex:string; Clasee:string; end; var persion:TPersion; PP:PPersion; begin FillChar(persion,Size 阅读全文
2016年4月13日
2016年1月5日
摘要：
--在全局函数中增加 适用用Setup Factory 9 function FindAndCloseProcessByName(strName) local tblProcesses = Window.EnumerateProcesses(false); local bProcessFound = 阅读全文
2015年9月23日
摘要：
1、D:\soft\控件\VclSkin5.40-D7-D2010 New\source 控件安装位置2、WinSkinForm.pas 查找Close3、function TWinSkinForm.GetSysBtnHint(i: integer): string;begin result := ... 阅读全文
2015年7月29日
摘要：
1、声明 type PtrInt=Integer;2、function CreateAlarmObject(AppHandle:THandle;WinW,WinH:Integer):PtrInt;begin if Application.Handle=0 then begin Application... 阅读全文
摘要：
1、右键动态库工程名，出现options，选择Directories/Conditionals,Output Directior 制定一个动态库输入目录2、选择Debugger，Host application选择使用动态库的程序，为Output Directior目前下的程序3、启动动态库。就可以... 阅读全文
2015年6月29日
摘要：
Tree: TXdbxAnalysis;FDataStream: TMemoryStream;{FDataStream:= TMemoryStream.Create; FDataStream.LoadFromFile('D:\4.txt'); Tree:=TXdbxAnalysis.Create; ... 阅读全文
2015年5月18日
摘要：
在Delphi7.0中安装Spcomm串口通信控件的方法为：选择Delphi7.0的“Component”菜单，点击“Install Component...”菜单项，然后在弹出的Into existing package属性页中Unit file name输人框中选择SPCOMM.pas文件，单击... 阅读全文
2015年5月15日
摘要：
菜单component->Install Packets按Add按钮，选择delphi目录里的bin目录下的dclsockets70.bpl(delphi2010是dclsockets140.bpl)，然后TClientSocket和TServerSocket控件就会出现在Internet页上了 阅读全文
2015年4月25日
摘要：
function BytestoHexString(ABytes: TBytes; len: Integer): AnsiString;begin SetLength(Result, len*2); BinToHex(@ABytes[0], PAnsiChar(Result), len);end;例... 阅读全文
2015年4月13日
摘要：
TDMSRequestBuffer=object Head:TDMSHead; Data:array[0..2047] of char; DataSize:Integer; procedure Init(Sys:TDMSSysType;Svr:TDMSSvrType); procedure Enc... 阅读全文