RunAsAdmin in windows 8

标签：

function RunAsAdmin(hWnd: HWND; filename: string; Parameters: string): Boolean;
{
    See Step 3: Redesign for UAC Compatibility (UAC)
    http://msdn.microsoft.com/en-us/library/bb756922.aspx
}
var
    sei: TShellExecuteInfo;
begin
    ZeroMemory(@sei, SizeOf(sei));
    sei.cbSize := SizeOf(TShellExecuteInfo);
    sei.Wnd := hwnd;
    sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
    sei.lpVerb := PChar(‘runas‘);
    sei.lpFile := PChar(Filename); // PAnsiChar;
    if parameters <> ‘‘ then
    	sei.lpParameters := PChar(parameters); // PAnsiChar;
    sei.nShow := SW_SHOWNORMAL; //Integer;

    Result := ShellExecuteEx(@sei);
end;

See Mask values here:
http://msdn.microsoft.com/en-us/library/windows/desktop/bb759784(v=vs.85).aspx

This article will show you how to create a Delphi Application with a manifest to request elevation (run as admin). Read the article, it has a link to Delphi Manifest creator for doing this - very nice ! it will save you a lot of work. So if the program you need to run is written in Delphi and you have the source code then use this method.

http://delphi.about.com/od/delphitips2009/qt/delphi-vista-registry-run-on-startup.htm
https://stackoverflow.com/questions/15319158/use-shell-execute-to-run-cmd-as-admin

RunAsAdmin in windows 8

标签：

原文地址：http://www.cnblogs.com/findumars/p/4177409.html