不能提权问题
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, hToken);
Result:=EnablePrivilege(hToken, 'SeDebugPrivilege', True);
用这个操作提权，返回失败
操作不能成功会是什么原因呢？

[解决办法]
if not Result then
ShowMessage(SysErrorMessage(GetLastError));
就知道原因了