API API API API ... Shell_traywnd是任务条的类名。FindWindow('Shell_traywnd',Nil)表示查找类名为Shell_traywnd,窗口标题为任意的这样一个窗口的句柄 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 zengyufeng(御风): windows的类名要在那里查? 要取的一个句柄的类名用这个APIGetClassName 谢谢,谢谢另:我在nt中调用ExitWindowsEx 是要先调用AdjustTokenPrivileges ?它怎么用? 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; 帮我关注一下这个贴子:http://www.csdn.net/expert/topic/350/350715.shtm谢谢! 请问如何在程序里打开局域网里共享的目录? dephi查询PostgreSQL数据库到表格中中文显示乱码 【诚心请教各位老大!】 哪里可以下载到Delphi7? 怎样多行删除dxdbgrid中的数据?知道请进立即结帐 ***急,如何将Excel文件导入到SqlServer表中??*** 三个简单的问题,帮我个忙。谢了。(外行人问题) 这台移动PC是不是太贵了点? adoquery的DeleteRecords()命令应怎么用? Delphi程序怎么调用C#写的dll类库? delphi7什么时候有?我好期待! 请教各位把中文转换成ascii码的函数.60分送上.
GetClassName
另:我在nt中调用ExitWindowsEx 是要先调用AdjustTokenPrivileges ?它怎么用?
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;
http://www.csdn.net/expert/topic/350/350715.shtm谢谢!