|
|||
|
摘要：
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 大悟还俗_2 阅读(683) 评论(1) 推荐(0) 编辑
摘要：
要求：一个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 大悟还俗_2 阅读(311) 评论(0) 推荐(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 大悟还俗_2 阅读(375) 评论(0) 推荐(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 大悟还俗_2 阅读(700) 评论(0) 推荐(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 大悟还俗_2 阅读(866) 评论(0) 推荐(0) 编辑 |
|||
