Ejecutar aplicacion como administrador en windows 7

[[nlsgarcia]]

Caroso,

Empezado por Caroso

...como hacer, por medio de código, que mi aplicación en Delphi se ejecute como administrador...

Revisa este código:

Código Delphi [-]
program Project1;

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  StdCtrls,
  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;

begin
   RunAsAdmin('XProgram.exe');
end.

El código anterior ejecuta el programa XProgram.exe con privilegios de administrador, en este caso particular no se incluyeron parámetros. En lo referente a tu requerimiento XProgram es tu aplicación en Delphi.

Espero sea útil

Nelson.