Shell_traywnd是任务条的类名。
FindWindow('Shell_traywnd',Nil)表示查找类名为Shell_traywnd,窗口标题为任意的这样一个窗口的句柄

解决方案 »

  1.   

    zengyufeng(御风):  windows的类名要在那里查?
      

  2.   

    要取的一个句柄的类名用这个API
    GetClassName
      

  3.   

    谢谢,谢谢
    另:我在nt中调用ExitWindowsEx  是要先调用AdjustTokenPrivileges  ?它怎么用?
      

  4.   

    var
      hToken, hProcess: THandle;
      NewState: TOKEN_PRIVILEGES;
      ProcessId, ReturnLength: DWORD;
      luidPrivilegeLUID: TLargeInteger;
    begin
      ProcessId := GetCurrentProcessId;
      hProcess := OpenProcess( PROCESS_ALL_ACCESS, FALSE, ProcessId );
      OpenProcessToken( hProcess, TOKEN_ADJUST_PRIVILEGES, hToken );
      LookupPrivilegeValue( nil, SE_SHUTDOWN_NAME, luidPrivilegeLUID );  NewState.PrivilegeCount := 1;
      NewState.Privileges[0].Luid := luidPrivilegeLUID;
      NewState.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;  ReturnLength := 0;
      if AdjustTokenPrivileges( hToken, FALSE, NewState, 0, nil, ReturnLength ) then
        ExitWindowsEx( ..., 0 );
    end;
      

  5.   

    帮我关注一下这个贴子:
    http://www.csdn.net/expert/topic/350/350715.shtm谢谢!