hola amigos del club, les comento que quiero que mi aplicacion se ejecute con derechos de administrador he encontrado este codigo en en este
hilo, de funcionar funciona. pero con un gran problema que al ejecutarse la aplicacion crea un proseso repetitivo reejecutandose infinidad de veces.
lo he probado en mi aplicacion en
ONSHOW
ONCREATE
el mismo problema, alguien que me ayude como utilizarlo.
Código Delphi
[-]uses
Windows, ShellAPI;
{$R *.res}
procedure RunAsAdmin(const ProgramName: String; const Parameters: String = ''; Handle : HWND = 0);
var
Info : TShellExecuteInfo;
begin
FillChar(Info, SizeOf(Info), 0);
Info.cbSize := SizeOf(Info);
Info.Wnd := Handle;
Info.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
Info.lpVerb := 'runas'; Info.lpFile := PChar(ProgramName);
Info.lpParameters := PChar(Parameters);
Info.nShow := SW_SHOWNORMAL;
if not ShellExecuteEx(@Info) then
RaiseLastOSError;
end;
Código Delphi
[-]begin
RunAsAdmin('Miprograma.exe');
end.