- 基于阻塞Socket(Indy)的远程控制类库-TNetCommand世界中的礼仪-02
- TNetImage 类 源代码 // uNetImge .pas 屏幕图像相关操作 {{ 作者：蛐蛐 时间： 2004.5.26 } unit uNetImage; interface uses Classes, Windows, Graphics, Forms, Jpeg, SysUtils, IdTCPServer, IdTCPClient,uNetCommand; type TNetImage = class (TNetCommand) publi...
- 作者：西部数码发表于：2008-04-09 查阅全文...
- 大自然的BUG、人的BUG、软件的疑难杂症
- 每逢春夏，千鹤云集的青城山，在此栖居了上千年的仙鹤纷纷飞走，从此失踪了。当地居民纷纷指责：这都是房地产大开发惹的祸！也许不是这个原因，也许是；全球多个国家出现气候异常，有没有根本的方法来防止呢，可能没有。 人类的最大BUG就是癌症，以及艾滋� ARS等的出...
- 作者：西部数码发表于：2008-04-09 查阅全文...
- 使用Dephi组件的生存期管理
- ?众所周知，创建型设计模式中的都会创建对象。 可是对象在哪儿释放呢？ 当然，对于抽象工厂和工厂方法以及原型模式中，可以保存一个引用然后在需要的地方把它释放掉。可Singleton模式中却没有这样的引用，或是不能确定它是否创建了。 此时，Dephi的组件的生存期管理机...
- 作者：西部数码发表于：2008-04-09 查阅全文...
- Running applications from DelphiTM: Using ShellExecute (Part 1) {转贴}
- Running applications from Delphi TM : Using ShellExecute (Part 1) Level: Newbie-Hacker Author: The Baker Date: 2002-04-19 Running or opening external programs or files, from Delphi TM applications, is often a necessary requirement. This article cove...
- 作者：西部数码发表于：2008-04-09 查阅全文...
- 编译资源进入可执行程序
- 做一个.rc的文件，里面是文本格式，内容如下： 资源名 类型 资源在windows中的文件件 mycur1 cursor 28.cur //加入光标 mycur2 cursor 29.cur //加入光标 mycur3 cursor 30.cur //加入光标 myIco1 ICON ico.ICO //加入图标 bmp1 Bitmap 1.bmp bmp2 Bitmap 2.bmp 注意要...
- 作者：西部数码发表于：2008-04-09 查阅全文...
- 拖拉打开文件
- Procedure DragDropFiles(Var message: TMessage); Message WM_DropFiles; Procedure Tfm_main.DragDropFiles(Var message: TMessage); Var p: Array[0..254] Of char; i: word; Begin Inherited; i := DragQueryFile(Message.wParam, $FFFFFFFF, Nil, 0); For i := 0...
- 作者：西部数码发表于：2008-04-09 查阅全文...
- 命令行参数，程序参数
- If system.ParamCount 0 Then Begin filename := system.paramstr(1); OpenFile(filename); End;...
- 作者：西部数码发表于：2008-04-09 查阅全文...
- 注册文件类型，设置文件图标
- {------------------------------------------------------------------------------- @过程名: slpert - TFm_main.SetAssociatedExec @作者: Gavin @日期: 2004.09.08 @功能描述： @参数: FileExt, Filetype, FileDescription, MIMEType, ExecName: string @返回值: B...
- 作者：西部数码发表于：2008-04-09 查阅全文...
- 2个不错的通配符比较函数
- 近日在和朋友讨论 MaskMatch 时偶得2个不错的算法。 函数1 只支持''''*'''',''''?''''模糊匹配。速度比采用递归算法的快近2倍，比TMask方法快很多。 函数2 完全支持正规表达式。速度于之前的相同。(不会正规表达式的朋友慎用) // =========================== // Funti...
- 作者：西部数码发表于：2008-04-09 查阅全文...
- 比 FastPos 还要快 Pos 函数
- 相信字符串处理中用的最多的就是 Pos 函数了。但是如果要搜索一个字符串中第二次或者第三次出现的子字符串的，就没有现成的 DELPHI 标准函数了。所以我就自己写了一个。同时和网上比较流行的 FastStrings.SmartPos() 和 JVCL.NPos() 做了比较，速度更快，而且兼容 Unic...
- 作者：西部数码发表于：2008-04-09 查阅全文...
- 自定义DataSet，并写入数据
- 新建一 DataSet , 并加入数据 : prepareTable function TFrm_Print.CreateTableInMemory(const AFieldDefs:TFieldDefs):TDataSet; var TempTable:TClientDataSet; begin TempTable:=nil; Result:=nil; if AFieldDefsnil then begin try TempTable:=TClientDataSet.Crea...
- 作者：西部数码发表于：2008-04-09 查阅全文...
- INI文件的读写
- function readInifile(fileName,section,Ident:string):string;? //读取配置文件 var ? ini:tinifile; begin ? ini:=tinifile.Create(fileName); ? result:=ini.ReadString(section,ident,''''''''); ? ini.Free; end; procedure writeInifile(const fileName,Section,...
- 作者：西部数码发表于：2008-04-09 查阅全文...
- delphi中将UCS2编码的字符串转化为GB2312编码的简单方法
- 最近在做一个短信相关的项目。从联通网关deliver过来的短信都是ucs2编码的。 在网上找了些资料，找到一些使用java语言本身带的api转换的代码，但没有合适的delphi源码，所以经研究后自己写了一个，很简单的： function Ucs2ToGBK(const InValue: string): string; var...
- 作者：西部数码发表于：2008-04-09 查阅全文...
- 一个简单控件的编写--系统托盘
- 在网上看到不少系统托盘的控件，有的写的东西太多，用不上，但大家似乎都没有解决一个问题，那就是单击和双击怎么处理的问题，所以自己也写了一个贴出来。希望大家能多提意见，如果哪个地方有不对的地方请指出，但千万别骂。 这个控件很简单，可以用 Show 的方法显示图...
- 作者：西部数码发表于：2008-04-09 查阅全文...
- 一个简单的投票机器人
- 一个简单的投票机器人 昨天帮人报一个参加日语能力考试的朋友报名，无奈名额已满，需要不断重试碰运气。手工操作很麻烦，就决定做一个机器人试试，于是翻出了去年做的一个投票机器人。（报名机器人另文再写） 那时非典被困在宿舍，做毕设的公司正在参加一个十大新兴技...
- 作者：西部数码发表于：2008-04-09 查阅全文...
随机推荐
热门关注
- AnsiString？PChar？赋值？
- Report Machine 3.0 (报表控
- MapX v5.02.25 破解文件
- WDBOX v1.0 多选下拉列表框
- 用Delphi开发视频聊天软件
- Delphi客户服务器应用开发（
- AES 加密算法函数包及演示文
- ACCESS/SQL 数据库存取图片
- 熊猫烧香核心源码(Delphi模
- 把整个网页保存成JPG图片(针
- 高级计算器 V1.0 (含代码)
- Delphi版模仿熊猫烧香病毒核
- 精确定位打印程序 (含源代码
- Delphi文件管理（六）
- 将数字四舍五入保留两位小数
- 绝地程序编辑器 v1.0.1.4 源
- 关于自定义界面的方案(EasyG
- Delphi 对象链接与嵌入（三
- 用HTML页面做程序界面演示程
- Delphi模拟最小化恢复关闭按
