辛苦了一个晚上，终于搞定了98/2000的自动关机程序，提供原码连接，大家来下载吧

Question

没办法，不入虎穴，焉得虎子。
Email:[email protected]　　谢谢！

Answer 1

也给俺一个吧，我正在学JAVA
[email protected]

Answer 2

自动关机?什么意思?不是有API吗?

Answer 3

[email protected] you very much!

Answer 4

有没有注释，为什么不用winzip的格式

Answer 5

大家自己下载吧，我的源码使用winrar压缩，大家在www.newhua.com上下载压缩工具吧

Answer 6

to:greensleeve(绿袖子)，你什么意思！

Answer 7

自动关机?没兴趣,一行搞定:(delphi)
while(timetostr(time())='23:50:50')do exitwindowsex(EWX_SHUTDOWN,0);
我想自动开机的程序更有吸引力吧,呵呵.

Answer 8

to:mc_music(狂沙)，哪你在nt下试试看罗

Answer 9

我也来吧！
[email protected]

Answer 10

void Tmform::shutdown()
{
//DWORD tmp;
DWORD dwVersion = GetVersion();
    if (dwVersion < 0x80000000)                // Windows NT
      {
        HANDLE hToken;
        TOKEN_PRIVILEGES tkp;
        OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES|TOKEN_QUERY, &hToken);
        LookupPrivilegeValue(NULL, SE_SHUTDOWN_NAME,&tkp.Privileges[0].Luid);
        tkp.PrivilegeCount = 1;  // one privilege to set
        tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
        AdjustTokenPrivileges(hToken, FALSE, &tkp, 0,(PTOKEN_PRIVILEGES)NULL, 0);
        ExitWindowsEx(EWX_SHUTDOWN|EWX_FORCE, 0);
      }
    else
      {
        ExitWindowsEx(EWX_POWEROFF|EWX_FORCE,0);
      }
}

Answer 11

注意注意：
该程序已更正，解决了98下的问题，请那位朋友在98下测试一下关机功能
软件：http://myhome.humen.com/hualei/download/AutoShutDown.exe
源代码
 http://myhome.humen.com/hualei/download/TSAutoShutDown.rar
 http://myhome.humen.com/hualei/download/TSAutoShutDown.rar

Answer 12

什么时候能搞定启动时的自动运行啊（win2000 and NT 下）

Answer 13

我也想要一份，邮箱[email protected],非常感谢！

Answer 14

哈哈，我是因为同室有人喜欢很晚打星际，写了一个win2000下的自动电源管理程式
其实也没什么，主要就是一个权限的问题而已
后来，被同室的家伙们到处乱拷，并和一个微型telnetServer合用，成了远程关机的当当
最后，被改写成了一个DCOM的程式，弄得人人骂