My delphi
7年
一直活在自己给自己描绘的世界里
展开
-
delphi 如何将两张图片合并成一张
有两张图片,我想通过程序把他合并成一张,然后另存为一张新图 var DestRect,SrcRect:TRect; begin DestRect:=Rect(0,0,Image2.Width,Image2.Height); SrcRect :=DestRect; Image2.Canvas.CopyMode:=cmSrcAnd原创 2008-09-05 13:36:00 · 6565 阅读 · 0 评论 -
delphi 指针
浅谈Object Pascal的指针 以下内容分为八个部分,分别是 一、类型指针的定义 二、无类型指针的定义 三、指针的解除引用 四、取地址(指针赋值) 五、指针运算 六、动态内存分配 七、字符数组的运算 八、函数指针 一、类型指针的定义。对于指向特定类型的指针,在C中是这样定义的: int *ptr; char *ptr;原创 2008-09-09 13:06:00 · 572 阅读 · 0 评论 -
treeview添加背景图片
在uses中加types;procedure TForm1.TreeView1CustomDraw(Sender: TCustomTreeView; const ARect: TRect; var DefaultDraw: Boolean); var btop, bLeft: Integer; rect转载 2008-09-18 09:22:00 · 1803 阅读 · 0 评论 -
虚拟桌面服务程序 [转载]
一、为什么要使用虚拟桌面。 场景一、上班的时候,我们经常会趁老板不注意,去一些工作时间不应该去的网站,或是运行一些不应该运行的程序,比如一些聊天工具,小游戏,股票软件等等。而且,经常会打开一大堆。当老板或其他同事来到你的桌前的时候,你正在手忙脚乱的关着这些程序,而且,还来不及保存想要保存的东西。 场景二、在你给别人做讲演的时候,需要在电脑桌面上展示很多资料。当然一个桌面经常原创 2009-02-02 14:58:00 · 2170 阅读 · 2 评论 -
加密.swf文件
unit Uni_DataModule;interfaceuses SysUtils, Classes,Windows,Dialogs;type TDM1 = class(TDataModule) private { Private declarations } public { Public declarations } end;Function FileE原创 2009-03-04 14:09:00 · 617 阅读 · 0 评论 -
delphi 加密字符串
1.function EncrypStr(Src, Key: String): String;//字符串加密函数 //对字符串加密(Src:源 Key:密匙)var KeyLen :Integer; KeyPos :Integer; offset :Integer; dest :string; SrcPos :Integer; SrcAsc :Integer;转载 2009-08-18 15:33:00 · 3299 阅读 · 0 评论