WINDOWNS 2000关机问题（老问题）(100分)

lausunny · 2002-11-26

按照以前论坛和MSDN的说明用DELPHI写了WIN 2K 下定时关机的程序，但如果用WIN 2K 锁定后程序无法关闭电脑请教坛友！ 共享个经验我觉得如果要学WINDOWS下编程去MSDN.MICROSFT.COM的网站很有用的。 以下贴出我的代码还请坛友指出问题所在（AdjustToken();是在以前的帖子抄的，如果用BUTTON的事件关机没问题） procedure TForm1.AdjustToken(); var   hdlProcessHandle : Cardinal;   hdlTokenHandle : Cardinal;   tmpLuid : Int64;   tkpPrivilegeCount : Int64;   tkp : TOKEN_PRIVILEGES;   tkpNewButIgnored : TOKEN_PRIVILEGES;   lBufferNeeded : Cardinal;   Privilege : array[0..0] of _LUID_AND_ATTRIBUTES; begin          hdlProcessHandle := GetCurrentProcess;          OpenProcessToken(hdlProcessHandle,                          (TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY),                           hdlTokenHandle);          // Get the LUID for shutdown privilege.          LookupPrivilegeValue('', 'SeShutdownPrivilege', tmpLuid);          Privilege[0].Luid := tmpLuid;          Privilege[0].Attributes := SE_PRIVILEGE_ENABLED;          tkp.PrivilegeCount := 1;   // One privilege to set          tkp.Privileges[0] := Privilege[0];          // Enable the shutdown privilege in the access token of this          // process.          AdjustTokenPrivileges(hdlTokenHandle,                                False,                                tkp,                                Sizeof(tkpNewButIgnored),                                tkpNewButIgnored,                                lBufferNeeded);  end; procedure TForm1.Button1Click(Sender: TObject); begin      AdjustToken;      ExitWindowsEx((EWX_SHUTDOWN Or ewx_poweroff), 0); end; procedure TForm1.Timer1Timer(Sender: TObject); begin if ((formatdatetime('dddd',now)='星期六') and (formatdatetime('h',now)='4')) then     begin      AdjustToken;      ExitWindowsEx((EWX_force Or ewx_shutdown or ewx_poweroff), 0);     end; end; end. MICROSOFT CODE WINDOWS 2K BOOL MySystemShutdown() {    HANDLE hToken;    TOKEN_PRIVILEGES tkp;      // Get a token for this process.      if (!OpenProcessToken(GetCurrentProcess(),         TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken))       return( FALSE );      // Get the LUID for the shutdown privilege.      LookupPrivilegeValue(NULL, SE_SHUTDOWN_NAME,         &tkp.Privileges[0].Luid);      tkp.PrivilegeCount = 1;  // one privilege to set        tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;      // Get the shutdown privilege for this process.      AdjustTokenPrivileges(hToken, FALSE, &tkp, 0,         (PTOKEN_PRIVILEGES)NULL, 0);      if (GetLastError() != ERROR_SUCCESS)       return FALSE;      // Shut down the system and force all applications to close.      if (!ExitWindowsEx(EWX_SHUTDOWN | EWX_FORCE, 0))       return FALSE;    return TRUE; }

jsxjd · 2002-11-26

lausunny · 2002-11-26

sorry ~发贴的时候没仔细检查句子更正一下 （但如果用WIN 2K 锁定后程序无法关闭电脑请教坛友！） 更正：如果用WIN 2K 把电脑锁定后无法关闭电脑（CTRL+ALT+DEL锁定）

lausunny · 2002-11-28

惨没人关注去回答？！

饿狼传说 · 2002-11-28

做这个有用吗?

who_can · 2002-11-29

没有！

lausunny · 2002-12-03

当然有用啦 周末公司的服务器可以自动关机不用整个星期都是开着的不用手动关了

卡色 · 2002-12-03

function ShutDown(uFlags: Cardinal):boolean; const   ADJUST_PRIV = TOKEN_QUERY or TOKEN_ADJUST_PRIVILEGES;   SHTDWN_PRIV = 'SeShutdownPrivilege';   PRIV_SIZE   = sizeOf(TTokenPrivileges); var   Len: DWORD;   TokenPriv, Dummy: TTokenPrivileges;   Token: THandle;   Error:integer; begin   error:=0;   // 设置特权   // Delphi2:   //if not OpenProcessToken(GetCurrentProcess(), ADJUST_PRIV, @Token) then   if not OpenProcessToken(GetCurrentProcess(), ADJUST_PRIV, Token) then       Error := Error or 4;   if not LookupPrivilegeValue(nil, SHTDWN_PRIV,TokenPriv.Privileges[0].Luid) then     Error := Error or 8;   TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;   TokenPriv.PrivilegeCount := 1;  // One privilege to set   if not AdjustTokenPrivileges(Token, false, TokenPriv, PRIV_SIZE,Dummy, Len) then     Error:=Error or 16;   ExitWindowsEx(uFlags, 0);   Result := (Error=0); end; procedure TForm1.BitBtn1Click(Sender: TObject); begin  ShutDown(EWX_POWEROFF + EWX_FORCE); end;

lausunny · 2002-12-10

遗憾，用上面的方法，但锁住WIN2000后还是不能关电脑。没人救就得了我了。

dearchenzhihua · 2002-12-12

看来真的是没人能救你了.. 因为当你锁住win2000后,,openprocesstoken根本就不执行,,而且当你锁住win2000后,只要 不解锁,兄弟你就别想关机了.(除非你断电),,就像你看到的那个解锁窗口一样没有关机这 一项:::不过兄弟我还要以支一招..那就是用那个关机程序先调用winapi函数先解锁再执行 关机程序,老兄够你忙的了,,,不过你先把分给我吧,,我只能回答到这儿了...不要吝啬啊.. 给点分吧!!!!!其它的问题可以再开贴呀 ,,,反正你分很多...我可是穷怕了.....

albin · 2002-12-12

在管理工具-本地安全策略-安全设置-本地策略-安全选项中启用“允许在未登 录前关机”即可。

lausunny · 2002-12-13

dearchenzhihua! 老兄很高兴，感激你给的提示，等解决了后会给你分的。但你也实在太黑了。。。。。 看来真的是没人能救你了..[

]

ljy_17 · 2002-12-13

TO:lausunny   這個簡單得要命啊！：）   告訴你們想問題不要想得那得復雜！ok? 解決的方法非常簡單！ 就是發送ALT+S然後再發送一個enter!搞定！ 不過你要編寫一個服務程序啊！要不然剛開機的時候也白搭！ 再送你一招：就寫一個dll用asp進行遠程關機！ 哈哈！我們公司就是這樣子的！ 等等：另開300分怎樣？：）

lausunny · 2002-12-20

TO ljy_17: 为什么不拿出个详细的解决方案就想得300也太不怎么样了吧，为了得分而骗分。 我想这个论坛应该是交流和帮助DELPHI爱好者的福地！

ljy_17 · 2002-12-20

TO:lausunny   /////为什么不拿出个详细的解决方案就想得300也太不怎么样了吧，为了得分而骗分。    老弟你有沒有搞錯啊！    你說我為得分而骗分    我不是給你答案了嗎？   ////解決的方法非常簡單！   ///////就是發送ALT+S然後再發送一個enter!搞定！   難道還要我寫出用什麼語句來發放ALT+S 和ENTER鍵嗎？？？？？  老弟：請你說話客氣一點，看請別人回答的內容！     還有不要等別人把所有的程序寫出來給你！OK？自已要多多想想！明白嗎？ 我今天心情還算好，所以不跟你一般寫識﹒﹒﹒﹒﹒﹒﹒

itren · 2002-12-20

和气生财！

leezero · 2002-12-20

关注

lausunny · 2002-12-24

TO ljy_17: 真的非常感谢你的关注，但我现在实在是没时间玩PROGRAM所以非常需要一套现成的CODE 去解决W2K SHUT DOWN 的问题，如果有恳请SHARE出来，给大家一个参考，我愿意拿出所有分数

人在昆明 · 2002-12-24

win2000已经提供了api 啦，不过你要用有关机权限的的账号登录，然后才可以关机、 注销，当然你也可以远程关机，不过你要先登录到那台机器上，用有权限的账户， 我同事用vc6 写了一个，我用d6 写了一个，其实都一样。

chenzhou · 2002-12-24

我也做过一个有的时候行有的时候不行 因为WINDOW有的时候自已都不能关机 谁有好一点的关机源码？Mail Me bamfk1023@163.com

WINDOWNS 2000关机问题（老问题）(100分)

lausunny

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

lausunny

Unregistered / Unconfirmed

lausunny

Unregistered / Unconfirmed

饿狼传说

Unregistered / Unconfirmed

who_can

Unregistered / Unconfirmed

lausunny

Unregistered / Unconfirmed

卡色

Unregistered / Unconfirmed

lausunny

Unregistered / Unconfirmed

dearchenzhihua

Unregistered / Unconfirmed

albin

Unregistered / Unconfirmed

lausunny

Unregistered / Unconfirmed

ljy_17

Unregistered / Unconfirmed

lausunny

Unregistered / Unconfirmed

ljy_17

Unregistered / Unconfirmed

itren

Unregistered / Unconfirmed

leezero

Unregistered / Unconfirmed

lausunny

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

chenzhou

Unregistered / Unconfirmed

Similar threads