[ecfisa]

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:

WIN95 	        Windows 95
WIN98 	        Windows 98
WIN4SP5 	Windows NT 4.0 SP5
WIN2000 	Windows 2000
WINXPSP2 	Windows XP SP2
WINXPSP3 	Windows XP SP3
VISTARTM 	Vista
VISTASP1 	Vista SP1
VISTASP2 	Vista SP2
WIN7RTM 	Windows 7

Display Settings

DISABLETHEMES 	Disable Visual Themes
640X480 	Run in 640 x 480 screen resolution
HIGHDPIAWARE 	Disable display scaling on high DPI settings
256COLOR 	Run in 256 colors
DISABLEDWM 	Disable Desktop Composition

Privilege Level

RUNASADMIN 	Run program as an administrator

Para ejecutarlo como administrador también revisa estos enlaces:

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

Saludos