在xp系统中隐藏任务栏时计算机会重启(50)

在xp系统下，我用以下方法来隐藏任务栏时计算机会重启，但在WIN2000底下没有问题。wndHandle := FindWindow('Progman',nil); ShowWindow(wndHandle, SW_HIDE) 请问各位大侠，这是为什么呢？

procedure Showtaskbar(ShowHide: Boolean); //False--隐藏 //True --恢复 const SW_Info: array[Boolean] of Word = (SW_HIDE, SW_RESTORE); var wndHandle : THandle; wndClass : array[0..50] of Char; begin StrPCopy(@wndClass[0], 'Shell_TrayWnd'); wndHandle := FindWindow(@wndClass[0], nil); ShowWindow(wndHandle, SW_Info[ShowHide]); end;

Progman 是桌面窗口的类名Shell_TrayWnd 是任务栏窗口的类名

再请问一下 guanyue7613 ，屏蔽键是什么呢？非常感谢。

我测试了一下，使用您的方法也是又重新启动的问题。我用的系统是 XP，如果在2000系统下就不会有重启的问题。

我在 xp professional 2002 sp2上测试过,没有任何问题,不知道楼主的计算机是怎么回事

有些机器有这个问题，但如果装2000就没问题。

我反复不同版本的xp测试过好多次。DELL的原装机基本上都有这个问题。但我自己的机器是惠普的没有重新启动的问题。不知道到底是什么原因，哪位大虾可以帮帮我呢，谢谢啦。

难道没有人碰到过这种情况吗？我已经碰到好多机器有这种问题了。

xp好像是要得到权限才可以关机重启的。//取得关机权限function TForm1.SetPrivilege(sPrivilegeName: string; bEnabled: Boolean): Boolean;var TPPrev, TP : TTokenPrivileges; Token :THandle; dwRetLen : DWORD;begin result := False; OpenProcessToken (GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, Token); TP.PrivilegeCount := 1; if LookupPrivilegeValue (nil, PChar (sPrivilegeName), TP.Privileges[0].LUID) then begin if bEnabled then TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED else TP.Privileges[0].Attributes := 0; dwRetLen := 0; result := AdjustTokenPrivileges ( Token, False, TP, SizeOf (TPPrev), TPPrev, dwRetLen); end; CloseHandle (Token);end;function TForm1.WinExit(iFlags: integer): Boolean;beginresult := true; if SetPrivilege ('SeShutdownPrivilege', true) then begin if (not ExitWindowsEx (iFlags, 0)) then begin result := False end; SetPrivilege ('SeShutdownPrivilege', False) end else begin result := False end;end;重启的话，你可以翻看帮助，改下相应的函数就行了。

terry_zhou82您好，我是遇到隐藏任务栏时计算机会自动重新启动。

我测试使用 guanyue7613 的方法同样。只要使用xp系统就会有重新启动的问题，改成2000就没问题了。

难道真的只有我碰到这个问题吗？急急急。。。

接受答案了.