Во, через вызов ShellExecuteEx удалось в десятке запустить нужную вам ситемную утилиту с правами одмина
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
shInfo: PSHELLEXECUTEINFOA;
s: string;
begin
s:= 'cmd.exe';
New(shInfo);
shInfo^.cbSize:= sizeof(SHELLEXECUTEINFO);
shInfo^.fMask:= 0;
shInfo^.Wnd:= 0;
shInfo^.lpVerb:= 'runas';
shInfo^.lpFile:= PAnsiChar(ExtractFileName(s));
shInfo^.lpParameters:= '/K powercfg /energy';
shInfo^.lpDirectory:= PAnsiChar(ExtractFilePath(s));
shInfo^.nShow:= SW_SHOWNORMAL;
shInfo^.hInstApp:= 0;
ShellExecuteEx(shInfo);
Dispose(shInfo);
shInfo:= nil;
end;
а если ещё и манифест прикрутить (*.exe.manifest), то тогда автоматом будет под админом это выполняться, без оконца уведомления от UAC