[camiz]

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'; // Eleva los privilegios de ejecución a Administrador
   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.