Ejecutar archivo con modo compatibilidad
 

Buenos Dias a todos

Alguien sabe como se puede hacer ejecutar un programa externo, desde nuestra aplicación delphi, y setearle previamente los Modos de "compatibilidad" y "Administrador"


Muchas gracias a todos

Hola Enan0.

Para configurar el modo de compatibilidad de la aplicación podes hacer:

Código Delphi [-]
uses Registry;

procedure SetAppCompatibility(const AppPath, CompatMode: string);
begin
  with TRegistry.Create do
  try
    RootKey:= HKEY_CURRENT_USER;
    if OpenKey('\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers', True) then
    begin
      WriteString(AppPath, CompatMode);
      CloseKey;
    end
    else MessageBox(0,'Error escribiendo el registro','',MB_ICONERROR);
  finally
    Free;
  end;
end;

// Llamada de ejemplo
procedure TForm1.Button1Click(Sender: TObject);
begin
  SetAppCompatibility('C:\pruebas\programa.exe', 'WINXPSP3 RUNASADMIN');
end;

Compatibility modes:
Display Settings
Privilege Level
Para ejecutarlo como administrador también revisa estos enlaces:

Ejecutar Como en C++
Ejecutar aplicacion como administrador en windows 7

Saludos :)

Hola Ecfisa,

Muchas gracias por la info! yo tambien termine encontrando la misma información de ACA

Despues de mucho buscar y terminar buscando "how to set compatibility mode in windows 7 +command line"


Saludos y Gracias una vez mas

Hola Enan0.

Yo obtuve de Microsoft los valores del registro y los flags.

El enlace que pusiste aparece como incorrecto, si deseas enviamelo por pm y lo corrijo en tu mensaje.

Saludos :)