如何啓動具有管理權限的應用程序？

Question

delphi，

我想運行我的應用程序與管理員權限的Vista或贏7有沒有解決這個你可能知道嗎？

相關的問題：

Want to learn if my application has admin rights?

感謝。

Answer 1

以管理員權限運行程序我有迄今爲止工作的這個功能。

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;