GetIdeSerialNumber 权限问题 请教各位使用GetIdeSerialNumber函数来获取硬盘序列号的朋友,我现在遇到的问题是:当我使用的不是XP管理员帐号的时候,就无法获得序列号! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我有一个使用动态库获取硬盘序列号的代码据说 可以不需要管理员权限运行不过没测试过里面有VC的源码要的话留下邮箱地址好像处理不了Vista下的 試試看function SetPrivilege(privilegeName: string; enable: 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(privilegeName), tp.Privileges[0].LUID) then begin if enable 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; 提升權限 if SetPrivilege('SeSystemtimePrivilege', true) then //Todo 相關權限字串參考 :http://msdn.microsoft.com/en-us/library/bb530716(VS.85).aspx 帮帮忙啊! 请教如何在form中twebbrowser组建中打开网页并且可以带参数? 简单问题:adoquery1中第i条记录的 字段名为a 的值应该怎么取? 请教:DBGridEh中出现LookUp下拉框的最少必要设置条件. 如何将表到处到execl?? StringList越界错误list index out of bands(47)求助 识别源码控件问题!!!!!高手来看看! 如何在delphi中显示word文件? 怎么样截取window的消息,哪位高手能举几个例子吗? 一个关于媒体播放器的问题. 在 MD5.pas 里哪个是解密函数?? 线程中创建窗口,关闭时遇到的问题。
据说 可以不需要管理员权限运行
不过没测试过
里面有VC的源码
要的话留下邮箱地址
好像处理不了Vista下的
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(privilegeName), tp.Privileges[0].LUID) then
begin
if enable 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;
提升權限 if SetPrivilege('SeSystemtimePrivilege', true) then
//Todo
相關權限字串參考 :http://msdn.microsoft.com/en-us/library/bb530716(VS.85).aspx