定时关机 ( 积分: 100 )

本人写了一个定时关机软件,是BT爱好者的好帮手
可以根据下载和上传的流量来关机,还有很多其他
附加功能,不要错过哦
要的留下Email,我会发给各位
过几天我会传上去方便大家下载

要源码哟

如果可能的话,我会公布的

TIMER计时，向系统发送消息，OK---CLOSE；

挺智能的

不错,支持..

顶``附加源码最好``要不抓包部分也行``呵呵``

忘了留下mail了:chenhan159@163.com
谢谢了

楼上的兄弟,下周一会给你发

juzixingfu@gmail.com.
别忘记我了!

楼上留了Email的兄弟，已经发出

是源码还是exe呀? 我要源码学习一下下哦: bjaman@163.com

不好意思,是exe

yuanyd_hrb@126.com
thanks

E-Mail、MSN: Delphi2005@163.com

zdikun@163.com
请给个源码我，学习学习。。。。
THANK YOU。。。。

//判断是哪类操作系统，以确定关机方式
function GetOperatingSystem: string;
var
osVerInfo: TOSVersionInfo;
begin
Result := '';
osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
if GetVersionEx(osVerInfo) then
case osVerInfo.dwPlatformId of
VER_PLATFORM_WIN32_NT:
Result := 'Windows NT/2000/XP';
VER_PLATFORM_WIN32_WINDOWS:
Result := 'Windows 95/98/98SE/Me';
end;
end;

//获得计算机名
function GetComputerName: string;
var
buffer: array[0..MAX_COMPUTERNAME_LENGTH+1] of Char;
Size: Cardinal;
begin
Size := MAX_COMPUTERNAME_LENGTH + 1;
Windows.GetComputerName(@buffer, Size);
Result := strpas(buffer);
end;

//定时关机函数，参数的意义如下:
//Computer:计算机名;Msg:显示的提示信息;Time:时间延迟;Force:是否强制关机;Reboot:是否重启动
function TimedShutDown(Computer: string;
Msg: string;
Time: Word;
Force: Boolean;
Reboot: Boolean): Boolean;
var
rl, hToken: Cardinal;
tkp: TOKEN_PRIVILEGES;
begin

//获得用户关机特权，仅对Windows NT/2000/XP
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);
if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid)then
begin
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
tkp.PrivilegeCount := 1;
AdjustTokenPrivileges(hToken, False, tkp, 0, nil, rl);
end;
Result:=InitiateSystemShutdown(PChar(Computer), PChar(Msg), Time, Force, Reboot);
end;

//可以在时钟中调用
if GetOperatingSystem = 'Windows NT/2000/XP' then
TimedShutDown(GetComputerName, '系统将要关机!', 30, True, False)
else
ExitWindowsEx(EWX_SHUTDOWN, 0)//安全地关机

wpls520@163.COM
谢谢楼主了·

给我一份,txbdir@163.com,谢谢!

研究学习：）yy_yong@sohu.com