首页 > 代码库 > RunAsAdmin in windows 8
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
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。