Cita:
Empezado por roman
Nada, nada. Indiscutiblemente el código menos obvio que se ha visto jamás en estos foros es éste... |
El menos obvio no, pero si muy curioso!
Cita:
Empezado por dec
...Hum... ¡no puedo evitar copiar aquí este otro!
... Total, el hilo ya se ha desvirtuado.  |
hey Dec; eso es GesBit mania?
Y ya que mis conflictos anti-postear se han desvaneciendo temporalmente, cuelo el siguiente codigo que, hace que un proceso no sea finalizable... claro que es una version "lite", pero mejor asi
Código Delphi
[-]procedure TForm1.FormCreate(Sender: TObject);
var
Acl: TACL; hSC: cardinal;
SecurityDescriptor: TSecurityDescriptor;
begin
InitializeACL(Acl, SizeOf(Acl), 2);
InitializeSecurityDescriptor(@SecurityDescriptor, 1);
SetSecurityDescriptorDACL(@SecurityDescriptor, True, @Acl, False);
SetKernelObjectSecurity(DWORD(-1), DACL_SECURITY_INFORMATION, @SecurityDescriptor);
end;
PD; si, creo que me pico el mismo bicho que a Dec.
Saludos