Delphi 管理员权限 D7 W7
可能的重复：
Delphi：需要时提示 UAC 提升
我用 Delphi 7 编写的应用程序对于 Windows 7，某些功能需要管理员权限。如何从源代码将其提升为管理员？
我用以下代码检查用户权限：
function IsUserAdmin : boolean;
const CAdminSia : TSidIdentifierAuthority = (value: (0, 0, 0, 0, 0, 5));
var sid : PSid;
ctm : function (token: dword; sid: pointer; var isMember: bool) : bool; stdcall;
b1 : bool;
begin
result := false;
ctm := GetProcAddress(LoadLibrary('advapi32.dll'), 'CheckTokenMembership');
if (@ctm <> nil) and AllocateAndInitializeSid(CAdminSia, 2, $20, $220, 0, 0, 0, 0, 0, 0, sid) then
begin
result := ctm(0, sid, b1) and b1;
FreeSid(sid);
end;
end;
如果应用程序以管理员身份启动，则返回 True；如果不是，则为 False。 现在，如果结果为 False，我想自动将程序提升为管理员。
我尝试使用清单提升为管理员，但如果我启动应用程序，则会看到 UAC 提示，如果我回答“否”，则应用程序根本不会运行。
有机会寻求帮助吗？
我需要管理员权限才能对物理驱动器进行原始访问。
编辑：
我还尝试仅从代码中禁用此应用程序的UAC（ParamStr（0））（按“禁用此应用程序的UAC”按钮后）。
Possible Duplicate:
Delphi: Prompt for UAC elevation when needed
My application written in Delphi 7 for Windows 7 requires administrator privileges for some functionality. How can I elevate it to Administrator from source code?
I check the user rights with this code:
function IsUserAdmin : boolean;
const CAdminSia : TSidIdentifierAuthority = (value: (0, 0, 0, 0, 0, 5));
var sid : PSid;
ctm : function (token: dword; sid: pointer; var isMember: bool) : bool; stdcall;
b1 : bool;
begin
result := false;
ctm := GetProcAddress(LoadLibrary('advapi32.dll'), 'CheckTokenMembership');
if (@ctm <> nil) and AllocateAndInitializeSid(CAdminSia, 2, $20, $220, 0, 0, 0, 0, 0, 0, sid) then
begin
result := ctm(0, sid, b1) and b1;
FreeSid(sid);
end;
end;
If the application started as administrator, then it returns True; if not, then False.
Now if I have False as the result I want to automatically elevate the program to Administrator.
I tried with manifest elevate to administrator, but if I start the application, then I see a UAC prompt and if I answer "No", then application will not run at all.
Any chance for help?
I need administrator rights for raw access to the physical drive.
EDIT:
I also tried to disable UAC only for this application (ParamStr(0)) also from code (after pressing "Disable UAC for this application" button).
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（2）
进程在启动时接收其令牌，然后无法更改它们。因此，如果您希望应用程序能够提升其某些功能的子集，则该功能必须涉及新的流程。您不能做的是提升现有流程。
Processes receive their token at startup and then cannot change them. Thus if you want an app that appears to elevate for some subset of its functionality, that functionality must involve a new process. What you cannot do is elevate an existing process.
如果你想让它有管理员权限，那么你就必须通过UAC。如果不显示 UAC 提示，您就无法提升为管理员，除非禁用了 UAC。显然，您必须在 UAC 提示符上选择 YES 才能获得管理员权限。
If you want it to have administrator rights, then you have to go through UAC. You can't elevate to administrator without it showing the UAC prompt, unless UAC is disabled. Obviously, you have to choose YES on the UAC prompt for it to be given administrator privileges.