单位有两台服务器，一台的Bios中有定时启动的功能，而另外一台没有。_程序员之家(一个定时网络唤醒的Windows 2000服务（Service）程序)

开发技术指南» 文章正文

引言：单位有两台服务器，一台的Bios中有定时启动的功能，而另外一台没有。

·dll全局钩子 »显示摘要«

摘要： dll全局钩子 // 以下使用内存映射文件共享数据来保存键盘钩子和dll句柄 // 运行此程序:触发程序加载完dll后,对其他系统内有键盘响应事件的程序自己挂钩// 而即使触发程序死亡,dll还是会达到监控键盘响应事件自动挂钩的目的// 直到你按下ctrl+f组合键dll才从内存中卸载.library sysinfo;uses windows;const buffer_size = 16 * ......

·delphi设计简易对象垃圾回收框架 »显示摘要«

摘要：1 缘起　　1.1 我的一个出错程序　　程序名称：呼叫处理模块的压力测试工具，分为客户端和服务端。　　开发工具：delhpi 5　　相关技术：客户端通过与服务端建立socket连接来模拟一组电话机的拨入、按键、等待、挂机等过程。服务端对socket事件以及收到的数据包进行预处理，并转化为抽象的呼叫模型数据，然后发送给更上层的呼叫处理模块。由于呼叫处理模块是硬件无关的（与语音板卡、交换机类型均无关......

一个定时网络唤醒的Windows 2000服务（Service）程序

单位有两台服务器,一台的bios中有定时启动的功能,而另外一台没有.所以每天早上到单位后第一件事情就是要去按一下这台服务器的电源开关来开机,不甚其烦！今天编写了一个定时网络唤醒的服务（service）程序,安装在第一台服务器上,这样当第一台服务器启动后,如果到了时间,就会自动通过网络发送wakeonline（wol）的广播包来唤醒另外一台服务器.

启动delphi,file－new－other－server application,然后定义该service的属性,如图: 【程序编程相关:取得Windows版本号】

步骤: 【推荐阅读:直接用WinSockAPI发E-mail】

保存文件名称为wakeonlinesrv.pas,该单元的代码如下: 【扩展信息:clientdataset不能在线程中使】

unit wakeonlinesrv;

interface

uses

windows, messages, sysutils, classes, graphics, controls, svcmgr, dialogs,

wakeonlineexecutethread;

type

twakeonlineserver = class(tservice)

procedure servicestart(sender: tservice; var started: boolean);

procedure servicestop(sender: tservice; var stopped: boolean);

procedure servicepause(sender: tservice; var paused: boolean);

procedure servicecontinue(sender: tservice; var continued: boolean);

private

{ private declarations }

thdwakeonline:twakeonline;

public

function getservicecontroller: tservicecontroller; override;

{ public declarations }

end;

var

wakeonlineserver: twakeonlineserver;

implementation

{$r *.dfm}

procedure servicecontroller(ctrlcode: dword); stdcall;

begin

... 下一页

·简易对象垃圾回收框架 for delphi »显示摘要«

摘要： 1 缘起 1.1 我的一个出错程序程序名称：呼叫处理模块的压力测试工具，分为客户端和服务端。开发工具：delhpi 5 相关技术：客户端通过与服务端建立socket连接来模拟一组电话机的拨入、按键、等待、挂机等过程。服务端对socket事件以及收到的数据包进行预处理，并转化为抽象的呼叫模型数据，然后发送给更上层的呼叫处理模块。由于呼叫处理模块是硬件无关的（与语音板卡、交换机类型均无关......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：