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

问题描述

对于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;

这篇关于如何启动具有管理员权限的应用程序？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！