Aplicacion con derechos de administrador

[dardusso23]

Hola! Yo solo lo que necesito seria un boton que al hacerle click ejecute como admin un programa. He usado el codigo de RunAsAdmin que publicaste pero me da un error de que no puede allar el archivo. Copio como lo hice para ver donde esta el error:

[delphi]
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,StdCtrls,ShellAPI, sButton;
const
ProgramName = 'MiPrograma.exe';

type
TForm1 = class(TForm)
sButton1: TsButton;
procedure sButton1Click(Sender: TObject);

private

procedure RunAsAdmin( strParameters: String = 'OK'; Handle : HWND = 0);
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.RunAsAdmin( strParameters: String;
Handle: HWND);
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(strParameters);
Info.nShow := SW_SHOWNORMAL;

if not ShellExecuteEx(@Info) then
RaiseLastOSError;
end;

procedure TForm1.sButton1Click(Sender: TObject);
begin
RunAsAdmin('MiPrograma.exe');
end;

end.

Muchas gracias

[Casimiro Notevi]

Recuerda poner los tags al código fuente, ejemplo:



Gracias

[[escafandra]]

Código Delphi [-]
ProgramName = 'MiPrograma.exe';

¿Cual es 'MiPrograma.exe'? ¿Existe?


Saludos.

[[AgustinOrtu]]

Pasale como parametro la ruta completa al ejecutable

PD: Por que defines la constante pero despues usas un literal?

[dardusso23]

Con la ruta completa funciona. El problema es que me abre la ventana de ejecutar como y ahi hay que seleccionar usuario o administrador y tipear la contraseña. Yo lo que necesito es justamente esquivar esa parte, que el usuario tenga que poner el pass, o sea que el programa ya se eejecute con esos permisos sin pedir autorizacion o contraseña. Se entiende?
Gracias

[[escafandra]]

Eso se puede hacer siempre y cuando sepas ese usuario y contraseña.


Saludos

[Casimiro Notevi]

je, je, je...