Delphi
sysprogram
这个作者很懒,什么都没留下…
展开
-
Delphi程序自删除
<br />总结了一下Delphi程序自删除的几种方法<br /> <br />program Project1; //方法一<br />uses<br /> Windows;<br />function WinExec(lpCmdline: PAnsiChar; uCmdShow: LongWord): LongWord;<br /> stdcall; external 'kernel32.dll' name 'WinExec';<br />function Extra原创 2010-09-06 16:05:00 · 1442 阅读 · 0 评论 -
BCB6.0下安装Indy9
<br />一、用BCB6的安装程序卸载BCB6自带的INDY,或者采用我的方法缷载: <br />component-> install packages-> 找到原来的所有indy相关的packages,然后remove <br />搜索BCB6目录下 "indy ",删除所有indy相关文件或者目录 <br />二、将下载的indy src解压,执行目录中的fullc6.bat,在上一级目录会产生c6目录,此为头文件和lib,还有bpl文件的地方。 <br />三、component-> in原创 2011-05-21 10:13:00 · 4830 阅读 · 0 评论 -
BCB6.0里没有TCppWebBrowser
<br />TCppWebBrowser组件在Intelnet板上没有.可以通过以下步骤解决<br />Component-->Install Packages-->查看Design Packages列表中是否存在Borland C++Builder Internet Explorer 5 Components Package一项,如果没有,点击Add按钮-->找到$(BCB)/bin/bcbie60.bpl添加进来(如果连这个文件也找不到,可能是你的BCB安装不太完整)-->如果列表中存在这一项,请选中对原创 2011-05-20 16:25:00 · 2171 阅读 · 2 评论 -
Delphi7的控件安装与删除
<br />基本安装 <br />1、对于单个控件,Componet--> install component..--> PAS或DCU文件--> install; <br />2、对于带*.dpk文件的控件包,File--> Open(下拉列表框中选*.dpk)--> install即可; <br />3、对于带*.bpl文件的控件包,Install Packages--> Add--> bpl文件名即可; <br />4、如果以上Install按钮为失效的话,试试Compile按钮; <br /原创 2011-03-23 16:49:00 · 7339 阅读 · 0 评论 -
Delphi获取进程数
programProject2;<br /><br />uses<br /> Windows,PsAPI;<br /><br />procedureCvtInt;<br />asm<br /> OR CL,CL<br /> JNZ @CvtLoop<br />@C1: OR EAX,EAX<br /> JNS @C2<br /> NEG EAX<br /> CALL @C2<br原创 2011-02-26 15:50:00 · 1595 阅读 · 0 评论 -
Delphi进程判断
programProject2;<br /><br />uses<br /> windows,TLHelp32;<br /><br />functionFindProcess(AFileName:string):boolean; <br />var<br /> hSnapshot:THandle;<br /> lppe:TProcessEntry32; <br /> Found:Boolean; <br />begin<br /> Result:=False;<br /> h原创 2011-02-26 15:48:00 · 1022 阅读 · 0 评论 -
Delphi自定义获取网卡MAC地址过程
<br />//获取网卡MAC地址===============================================================<br />procedureCvtInt;<br />asm<br /> OR CL,CL<br /> JNZ @CvtLoop<br />@C1: OR EAX,EAX<br /> JNS @C2<br /> NEG EAX<br />原创 2011-02-26 15:40:00 · 1221 阅读 · 0 评论 -
Delphi读取文本内容
<br />programProject2;<br /><br />uses<br /> Windows;<br /><br />var<br /> MyTextFile:TextFile;<br /> ALine:string;<br />begin<br /> AssignFile(MyTextFile,'FileName.Txt');<br /> Reset(MyTextFile);<br /> ReadLn(MyTextFile,ALine);<br /> MessageBox(0,P原创 2011-02-26 15:51:00 · 1347 阅读 · 0 评论 -
Delphi替换PE图标资源
programProject2;<br /><br />uses<br /> Windows,Classes;<br /><br />type<br /> icondirentry=packedrecord<br /> bwidth:Byte; //该目录对应的资源的宽度<br /> bheight:Byte; //该目录对应的资源的高度<br /> bcolorcount:Byte; //该目录对应的资源的颜色总数,大于8的资源该值为零<br原创 2011-02-26 15:46:00 · 2119 阅读 · 0 评论 -
Delphi自定义释放资源过程
programProject2;<br /><br />uses<br /> Windows;<br /><br />{$R mydll.RES}<br /><br />functionExtractRes(ResType,ResName,OutName:string):Boolean;<br />var<br /> HResInfo:THandle;<br /> HGlobal:THandle;<br /> HFile:THandle;<br /> Ptr:Pointer;<br /> Siz原创 2011-02-26 15:37:00 · 1387 阅读 · 0 评论 -
Delphi 字符串转十六进制
mark一下。 //字符串转16进制 function StrToHex(src:string):string; var i: integer; des: string; begin des := ''; for i := 1 to Length(src) do begin des := des + IntToHex(Ord(src[i]),2) + ' ';原创 2012-12-04 14:56:49 · 6552 阅读 · 0 评论