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 04:24:46

做一个.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 04:24:46

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 04:24:46

If system.ParamCount 0 Then Begin filename := system.paramstr(1); OpenFile(filename); End;...

2008-04-09 04:24:45

{------------------------------------------------------------------------------- @过程名: slpert - TFm_main.SetAssociatedExec @作者: Gavin @日期: 2004.09.08 @功能描述： @参数: FileExt, Filetype, FileDescription, MIMEType, ExecName: string @返回值: B...

2008-04-09 04:24:44

近日在和朋友讨论 MaskMatch 时偶得2个不错的算法。 函数1 只支持''''*'''',''''?''''模糊匹配。速度比采用递归算法的快近2倍，比TMask方法快很多。 函数2 完全支持正规表达式。速度于之前的相同。(不会正规表达式的朋友慎用) // =========================== // Funti...

2008-04-09 04:24:43

相信字符串处理中用的最多的就是 Pos 函数了。但是如果要搜索一个字符串中第二次或者第三次出现的子字符串的，就没有现成的 DELPHI 标准函数了。所以我就自己写了一个。同时和网上比较流行的 FastStrings.SmartPos() 和 JVCL.NPos() 做了比较，速度更快，而且兼容 Unic...

2008-04-09 04:24:42

新建一 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 04:24:40

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 04:24:38

最近在做一个短信相关的项目。从联通网关deliver过来的短信都是ucs2编码的。 在网上找了些资料，找到一些使用java语言本身带的api转换的代码，但没有合适的delphi源码，所以经研究后自己写了一个，很简单的： function Ucs2ToGBK(const InValue: string): string; var...

2008-04-09 04:24:35