4 replies to this topic

[escafandra]

Seguro que alguien ha tenido la necesidad de desactivar la opción de "Ejecutar como Administrador" del menú del botón derecho del ratón. Sin ir muy lejos me lo preguntaron recientemente. Una opción para realizar esto es el registro de Windows. Las eliminación de siguientes claves consigue el efecto deseado:

delphi

HKEY_CLASSES_ROOT\batfile\shell\runas
HKEY_CLASSES_ROOT\cmdfile\shell\runas
HKEY_CLASSES_ROOT\cpfile\shell\runas
HKEY_CLASSES_ROOT\exefile\shell\runas
HKEY_CLASSES_ROOT\mscfile\shell\runas

Pero eliminar sin un backup nunca es bueno hablando del registro por lo que guardaremos una copia de las mismas con ayuda del código que publiqué recientemente aquí : RegCopyKey
 
El siguiente código realiza la rarea para claves individuales:

delphi

function RegHideRunAs(SubKey: String): integer;
var
  SrcKey, TrgKey: HKEY;
begin
  Result:= RegOpenKeyExA(HKEY_CLASSES_ROOT, PAnsiChar(SubKey + '\shell\runas') , 0, KEY_READ, SrcKey);
  if Result = ERROR_SUCCESS then
  begin
    Result:= RegOpenKeyExA(HKEY_CLASSES_ROOT, PAnsiChar(SubKey), 0, KEY_READ, TrgKey);
    if Result = ERROR_SUCCESS then
    begin
      Result:= RegCopyKey(SrcKey, TrgKey, 'BkRunAs');
      RegCloseKey(SrcKey);
    end;
    RegCloseKey(TrgKey);
  end;
  if Result = ERROR_SUCCESS then
    RegDeleteTreeA(HKEY_CLASSES_ROOT, PAnsiChar(SubKey + '\shell\runas'));
end;
 
function RegRestoreRunAs(SubKey: String): integer;
var
  SrcKey, TrgKey: HKEY;
begin
  Result:= RegOpenKeyExA(HKEY_CLASSES_ROOT, PAnsiChar(SubKey + '\BkRunAs'), 0, KEY_READ, SrcKey);
  if Result = ERROR_SUCCESS then
  begin
    Result:= RegOpenKeyExA(HKEY_CLASSES_ROOT, PAnsiChar(SubKey + '\shell'), 0, KEY_READ, TrgKey);
    if Result = ERROR_SUCCESS then
    begin
      Result:= RegCopyKey(SrcKey, TrgKey, 'runas');
      RegCloseKey(SrcKey);
    end;
    RegCloseKey(TrgKey);
  end;
  if Result = ERROR_SUCCESS then
    RegDeleteTreeA(HKEY_CLASSES_ROOT, PAnsiChar(SubKey + '\BkRunAs'));
end;

Y la siguiente función realiza la tarea conjunta:

delphi

function ShowRunAs(Visible: boolean): integer;
begin
{
HKEY_CLASSES_ROOT\batfile\shell\runas
HKEY_CLASSES_ROOT\cmdfile\shell\runas
HKEY_CLASSES_ROOT\cpfile\shell\runas
HKEY_CLASSES_ROOT\exefile\shell\runas
HKEY_CLASSES_ROOT\mscfile\shell\runas
}
  if Visible then
  begin
    RegRestoreRunAs('batfile');
    RegRestoreRunAs('cmdfile');
    RegRestoreRunAs('cpfile');
    RegRestoreRunAs('exefile');
    RegRestoreRunAs('mscfile');
  end
  else
  begin
    RegHideRunAs('batfile');
    RegHideRunAs('cmdfile');
    RegHideRunAs('cpfile');
    RegHideRunAs('exefile');
    RegHideRunAs('mscfile');
  end;
end;

Pues ya tenemos la herramienta para esconder y restaurar la opción "Ejecutar como Administrador" del menú del botón derecho del ratón.
 
 
Saludos.

PD/ Edito para unificar en AnsiChar

[enecumene]

Bestial!

[egostar]

Muy bueno

 

Saludos

[Dante]

Hola me e encontrado con un problema, no me copia los valores de las claves, tengo DELPHI 10 y tuve q hacerle unas modificaciones a la funcione RegCopyKey ya q me generaba este errror [dcc32 Error] Unit2.pas(64): E2010 Incompatible types: 'PWideChar' and 'PAnsiChar'

para resolver esto tuve q cambiar RegCreateKeyEx por RegCreateKeyExA , RegEnumValue por RegEnumValueA, RegSetValueEx por RegSetValueExA y RegOpenKeyEx por RegOpenKeyExA.

 

Estos cambios pudieran ser el motivo por el cual no me copia los valores?

[escafandra]

Hola me e encontrado con un problema, no me copia los valores de las claves, tengo DELPHI 10 y tuve q hacerle unas modificaciones a la funcione RegCopyKey ya q me generaba este errror [dcc32 Error] Unit2.pas(64): E2010 Incompatible types: 'PWideChar' and 'PAnsiChar'
para resolver esto tuve q cambiar RegCreateKeyEx por RegCreateKeyExA , RegEnumValue por RegEnumValueA, RegSetValueEx por RegSetValueExA y RegOpenKeyEx por RegOpenKeyExA.
 
Estos cambios pudieran ser el motivo por el cual no me copia los valores?

Efectivamente es problema del unicode. O usas las API acabadas en A (ansi) o usas PCHAR (PWCHAR) en este caso, decir la incongruencia sintáctica de PCHAR: en compiladores No unicode PCHAR es tamaño BYTE. En los compiladores con Unicode PCHAR es asumido cono un PWCHAR tamaño 2 BYTES y para referirte al tamaño 1 byte debes usar PANSICHAR.

Saludos.