文章分类 -  Delphi - API

Windows API 函数
ShowWindow函数用法。
摘要：用ShowWindow函数。声明如下 Function ShoWWindow(hwnd: HWND,nCmdShow;int):bool; 其中，hWnd参数是应用程序的句柄，nCmdShow参数代表了窗体的显示状态。nCmdShow参数的值如下：  sw_hide隐藏窗口，激活另一个窗口sw_maximize 将指定的窗口最大化  sw_minimize 将指定的窗口最小化sw_restore 还原指定的窗口sw_show 以当前位置和大小激活窗口sw_showdefault以传递到createprocess函数中的startupinfo记录中指定的sw_flag方式显示窗口 sw_s 阅读全文

posted @ 2010-12-29 12:00 Delphi2010_老赵 阅读(29840) 评论(0) 推荐(0)

简单的Delphi字符串加密解密函数
摘要：const XorKey: array[0..7] of Byte = ($B2, $09, $BB, $55, $93, $6D, $44, $47); //字符串加密用 function Enc(Str: string): string; //字符加密函數 這是用的一個異或加密 var i, j: Integer; begin Result ... 阅读全文

posted @ 2010-12-15 00:13 Delphi2010_老赵 阅读(7682) 评论(0) 推荐(0)

delphi 内存管理，定期释放。
摘要：创建一个定时器，设置每隔N秒触发一次，也就是每隔多久进行一次内存清除！ClearMemoryThread单元代码如下： 阅读全文

posted @ 2010-12-15 00:11 Delphi2010_老赵 阅读(1652) 评论(0) 推荐(0)

Delphi 遍历所有目录和子目录下的文件名（可按后缀名遍历）
摘要：procedure EnumFileInQueue(path: PChar; fileExt: string; fileList: TStringList); var searchRec: TSearchRec; found: Integer; tmpStr: string; curDir: string; dirs: TQueue; ... 阅读全文

posted @ 2010-12-15 00:08 Delphi2010_老赵 阅读(12619) 评论(2) 推荐(1)

如何用 Delphi 创建系统服务程序？
摘要：Windows 2000/XP和2003等支持一种叫做"服务程序"的东西.程序作为服务启动有以下几个好处:(1)不用登陆进系统即可运行.(2)具有SYSTEM特权.所以你在进程管理器里面是无法结束它的.笔者在2003年为一公司开发机顶盒项目的时候,曾经写过课件上传和媒体服务,下面就介绍一下如何用Delphi7创建一个Service程序.运行Delphi7,选择菜单File--New--Other---Service Application.将生成一个服务程序的框架.将工程保存为ServiceDemo.dpr和Unit_Main.pas,然后回到主框架.我们注意到,Service有几个属性 阅读全文

posted @ 2010-12-14 11:50 Delphi2010_老赵 阅读(8137) 评论(3) 推荐(2)

导航