function TfrmLabelPages.PwdImg(img: Timage): string; var I,j,k: Integer; vPoint: TPoint; vLeft: Integer; arrStr:array [1..36]of string ; strResult: string; begin strResult := ''; arrStr[1] := '0'; arrStr[2]:='1'; arrStr[3]:='2'; arrStr[4]:=...
(一)使用动态创建的方法 首先创建Excel对象，使用ComObj: varExcelApp:Variant; ExcelApp:=CreateOleObject('Excel.Application'); 1)显示当前窗口： ExcelApp.Visible:=True; 2)更改Excel标题栏： ExcelApp.Caption:='应用程...
问题： procedureInitRichEditURLDetection(RE:TRichEdit); var mask:Word; begin mask:=SendMessage(RE.Handle,EM_GETEVENTMASK,0,0); SendMessage(RE.Handle,EM_SETEVENTMASK,0,maskorENM_LINK); end; //接收消息 procedurereceive(varMsg:TMessage)...
代码思路原作者,不详.......................膜拜第一位作者的开创思维 本人只是稍作修改和写入一些原作者没有告诉的东西 首先输入法必备的19个接口自己不要删除，不然输入法编译出来安...
作者：不详 不知不觉做软件已经做了十年，有成功的喜悦，也有失败的痛苦，但总不敢称自己是高手，因为和我心目中真正的高手们比起来，还差的太远。世界上并没有成为高手的捷径...
程序人生 : 30岁，我的程序员梦想 作 者： redbridge (雪燃) 30岁，开始实现我的程序员梦，从一个编程爱好者，从一个业余的程序员，一个水平不高的程序员，一个半道出家的程序员.......
根据〖中华人民共和国国家标准 GB 11643-1999〗中有关公民身份号码的规定， 公民身份号码是特征组合码18位：由十七位数字本体码和一位数字校验码组成。排列顺序从左至右依次为：六...
因为项目的需要，我用Delphi开发了一个小的程序。程序的功能就是选择一个文件，而后可以指定复制多少个相同的文件，用这些复制的文件做并发上传文件用。下面附源码和可执行文件...
我知道早在几年前就有了这种工具。不过我所找到的这类工具都不大好用，比如 W.Z.Q 的那个，每次修改都要从游戏里切换出来，很不方便。因此一怒之下自己写了个，具备全局快捷键修...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtDlgs, XPMan, StdCtrls, FileCtrl, RzFilSys, ExtCtrls,jpeg,ShlObj; type TForm1 = class(TForm) Button1: TButton; Button3: TButton...