大悟还俗

邮箱 key_ok@qq.com 我的收集 http://pan.baidu.com/share/home?uk=1177427271
posts - 236, comments - 8, trackbacks - 0, articles - 0
  新随笔  :: 联系 :: 订阅 订阅  :: 管理

2013年11月11日

摘要:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, Buttons, ExtCtrls, TrayIconForm, AppEvnts; type TShareInfo = record Actived : array [ 1..4 ] of boolean; end; PShareInfo = ^TShareInfo; ... 阅读全文

posted @ 2013-11-11 13:06 大悟还俗 阅读 (257) 评论 (1) 编辑

摘要:要求:一个EXE,如何将它做成这样的效果:1、双击它时,像一个FORMS程序那样正常显示窗体运行。2、注册成系统服务,每次都可以从service.msc中启动它。也就是说,没注册之前,它可以当作普通FORMS程序运行,注册之后,它就可以当系统服务运行。做法:参考Delphi 里面scktsrvr的源代码,Program Files/Borland/Delphi7/Bin 搜索scktsrvr 就会看到有个scktsrvr.dpr,查看它的工程源程序,原理:在启动程序时,通过启动的方式来决定如何加载程序。必须的地方使用红色标记:program RODBLayer;{#ROGEN:RODBLaye 阅读全文

posted @ 2013-11-11 13:05 大悟还俗 阅读 (128) 评论 (0) 编辑

摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type //定义接口如果接口独立成一个文件,则在应用程序中和实现程序中都要引用该接口文件; ICar = interface (IInterface) ['{ED52E264-6683-11D7-B847-001060806215}'] procedure drive; end; //接口实现类1,一定要加入Tint... 阅读全文

posted @ 2013-11-11 13:04 大悟还俗 阅读 (98) 评论 (0) 编辑

摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;const TIMER_ID = 200;type TForm1 = class(TForm) Label1: TLabel; btkilltime: TButton; btsettime: TButton; procedure Button1Click(Sender: TObject); procedure btkilltimeCl... 阅读全文

posted @ 2013-11-11 13:03 大悟还俗 阅读 (346) 评论 (0) 编辑

摘要:实例1 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; constWM_ME=WM_USER+100; //自定义消息; type TForm1 = class(TForm) Button1: TButton;procedure Button1Click(Sender: TObject);//第一种消息处理方式; 只能处理常量消息; procedure wmme(var message:T... 阅读全文

posted @ 2013-11-11 13:02 大悟还俗 阅读 (493) 评论 (0) 编辑