如何启动具有管理员权限的应用程序？

本文介绍了如何启动具有管理员权限的应用程序？的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

对于delphi，

我想在vista或win 7上运行我的应用程序与管理员权限7有没有一个解决方案，你可能会知道？

I want to run my application with admin rights on vista or win 7 is there a solution for this you may know ?

相关问题：

想知道我的应用程序是否拥有管理员权限？

谢谢。

推荐答案

要运行具有管理员权限的程序，我有这个功能，迄今为止对我有用。

To run a program with admin rights I have this function which has worked for me so far.

procedure RunAsAdmin(const aFile: string; const aParameters: string = ''; Handle: HWND = 0); var sei: TShellExecuteInfo; begin FillChar(sei, SizeOf(sei), 0); sei.cbSize := SizeOf(sei); sei.Wnd := Handle; sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI; sei.lpVerb := 'runas'; sei.lpFile := PChar(aFile); sei.lpParameters := PChar(aParameters); sei.nShow := SW_SHOWNORMAL; if not ShellExecuteEx(@sei) then RaiseLastOSError; end;