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?