Delphi方面
文章平均质量分 77
jiang5460
这个作者很懒,什么都没留下…
展开
-
让Delphi使用带参数来调用外部可执行文件(EXE文件)
{*********************************************************}{ }{ 使用ShellExecute带参数调用外部Exe文件 }{原创 2005-11-04 09:15:00 · 11768 阅读 · 0 评论 -
关于资源图片文件与DLL到Imagelist
unit udmImage;interfaceuses Windows, SysUtils, Classes, ImgList, Controls, Graphics;type TdmImage = class(TDataModule) ImgLst16: TImageList; procedure DataModuleCreate(Sender: TObject);原创 2006-11-01 10:37:00 · 909 阅读 · 0 评论 -
往IE中嵌入工具条
往IE中嵌入工具条 我们首先要建立一个ActiveX Library。将其保存为MailIEBand.Dpr;然后建立一个COM Object,将其保存为BandUnit.pas;然后建立一个Form,这个窗口将作为子窗口显示在IE工具栏中,将窗口的BorderStyle属性改为bsNone,添加一个TButton组件和一个TComboBox组件,将TButton的Caption属性转载 2006-09-08 11:16:00 · 368 阅读 · 0 评论 -
关于PopupMenu向上弹出显示
在使用PopupMenu过程中,应该有很多朋友在使用 PopupMenu弹出菜单时有这样一个想法,比如我要让我的PopupMenu像Window系统的“开始”向上显示。可能有很多朋友在这一方面遇到难题了。也许也有些朋友通过PopupMenu 的.Popup(x,y)来设计向个弹出,但用过这个功能时会感到不满意的。经过本的仔细摸索终于搞定了解决这个问题的方法, 以下是代码实现部分,有两原创 2006-09-06 20:10:00 · 2808 阅读 · 0 评论 -
关于Delphi通用涵数
DELPHI程序注册码设计(转载) 思路是这样的:程序运行时先检测注册表,如果找到注册项,则表明已经注册,如果没有找到注册项,则提示要求注册. 在DELPHI下新建一工程,放置Edit1,Edit2,Label1,Label2,Button1组件.具体代码如下: u转载 2006-09-08 23:15:00 · 6379 阅读 · 0 评论 -
利用WinRAR实现网上程序的自动下载
利用WinRAR实现网上程序的自动下载南京 王海轩概要:本文结合示例阐述了怎样利用WinRAR的自解压功能实现网上程序的自动下载。所谓的“自动“ ,就是让用户毫无知觉的,程序就已经安装到计算机上。当然,如果把该功能用于不正当途径(如制造病毒、木马程序),可不是本文的目的。一、 前言笔者在给某税务局做网上申报程序的时候遇到一个问题:怎样使上网用户自动更新本地机器上的应转载 2006-09-08 11:37:00 · 687 阅读 · 0 评论 -
关于Utf8编码的几个函数最近一段时间老弄Utf8编码,工作时写了几个函数,给大家指正一下(转载)
关于Utf8编码的几个函数最近一段时间老弄Utf8编码,工作时写了几个函数,给大家指正一下////////////////////////////////////////////////---------取得utf8字符的长度---------------////Str:String 源字符串//Result:Integer utf8字符串长度class function TPdu转载 2006-02-10 15:01:00 · 553 阅读 · 0 评论 -
关于delphi的log的class已经完成,一如既往的open 他delphi ,日志class,临界区,文件操作
关于delphi的log的class已经完成,一如既往的open 他delphi ,日志class,临界区,文件操作如果你引用或者修改以下代码 请不要去掉注释,这个涉及到一个程序员的职业道德问题转载请注明/** 本代码为日志class* 作者:刘昆 * 最后修改日期: 2004-9-23 * 以上代码免费,若直接引用一下代码请告知,并保留此注释*转载 2006-02-10 15:02:00 · 1175 阅读 · 2 评论 -
关于调用DLL工程里的窗体锁定到另一个工程里的窗体的控件上
搞这个花了我一天多的时间,终于搞定了。希望这些源码对大家有帮助。 DLL工程源码:library DllDesk;uses Windows, SysUtils, Classes, Controls, Forms, UDllDesk in UDllDesk.pas {Frm_DllDesk};{$R *.res}var DllDeskApp: TApp原创 2006-02-08 11:55:00 · 470 阅读 · 0 评论 -
在delphi中用消息来向另一个程序发送消息
话就不再多说了。把代码贴上来吧。发送端:procedure SendMsgToOtherProgram(const AMsg, ATitle: string);var ds: TCopyDataStruct; hCurrentWindow: HWnd; szText: array[0..254] of char;begin ds.cbData := Length(AMsg)原创 2006-08-11 11:25:00 · 2939 阅读 · 0 评论