能力值:
( LV12,RANK:760 )
|
-
-
2 楼
CreateProcessAsUser
|
能力值:
( LV2,RANK:10 )
|
-
-
3 楼
procedure RunAsAdmin(hWnd : HWND; aFile : String; aParameters : String);
Var
Sei : TShellExecuteInfoA;
begin
Fillchar(sei,SizeOf(sei),0);
sei.cbSize := SizeOf(sei);
sei.Wnd := hWnd;
sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
sei.lpfile := PChar(aFile);
sei.lpVerb := 'runas';
sei.lpParameters := PChar(aParameters);
sei.nShow := SW_SHOWNORMAL;
if not ShellExecuteEx(@sei) then
RaiseLastOSError;
end;
|
能力值:
( LV9,RANK:160 )
|
-
-
4 楼
如果要被运行那个程序是自己写的,就在uac要求里加个要求管理员权限,之后只需要ShellExecute就可以了……如果不是自己写的,就用命令 runas 创建……
|
|
|