Ver Mensaje Individual
  #1  
Antiguo 25-11-2008
Avatar de JoAnCa
JoAnCa JoAnCa is offline
Miembro
 
Registrado: jul 2005
Ubicación: Cuba
Posts: 435
Reputación: 19
JoAnCa Va por buen camino
Cool Ocultar la aplicacion del Ctrl+Alt+Del en Windows XP y 2000

Buscando he encontrado como hacerlo, pero en los trucos de Clubdelphi hay uno que especifica que no sirve en XP

En trucomania hay otro metodo

Código Delphi [-]
 function AsignaProcedure(EnQueDll, Procedimiento: string):TFarProc;
  var
    MangoLib    : THandle;

 begin
  Result:=nil;
  MangoLib:=GetModuleHandle(Pchar(EnQueDll));
  if MangoLib <> 0 then
    Result:=GetProcAddress(MangoLib,Pchar(Procedimiento));
  if (MangoLib=0) or (Result=nil) then
    raise Exception.create( Procedimiento+' en ' + EnQueDll + ' no encontrado.');
 end;

begin
  try
    @RegisterServiceProcess:=AsignaProcedure('KERNEL32.DLL', 'RegisterServiceProcess');
  except
    ShowMessage('Error, funcion RegisterServiceProcess no encontrada...');
  end;
end;

Pero tampoco funciona en Win XP, me da el error de que RegisterServiceProcess no se encuentra en KERNEL32.DLL

De que forma pudiera ocultar mi aplicacion del Ctrl+Alt+Del en Windows XP?
__________________
La hora de acción no es hora de aprender, es necesario haber aprendido antes
Responder Con Cita