Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #6  
Antiguo 05-07-2003
Avatar de madman
madman madman is offline
Miembro
 
Registrado: may 2003
Ubicación: Nayarit, México
Posts: 242
Poder: 23
madman Va por buen camino
Como comentas el solo esconder el menu inicio no lo desactiva si mandas llamarlo desde el teclado.

Aki esta el codigo, sobre lo de CTRL+ALT+SUPR:
Código:
unit SafeMode;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ComCtrls, ExtCtrls, StdCtrls, ShellApi, Registry;

  procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
  procedure Espabila(var Msg : TMessage); message WM_USER+1;
  procedure NiTeMenees(var m: TWMWINDOWPOSCHANGED); message WM_WINDOWPOSCHANGING ;
  procedure WMQueryEndSession(var Msg: TWMQueryEndSession); message WM_QUERYENDSESSION;

implementation

var
        ncont:integer;


function RegisterServiceProcess(dwProcessID, dwType: DWord) : DWord;
stdcall; external 'KERNEL32.DLL';

//------------------------------------------------------------------------------
{Desactiva el TaskManager}
//------------------------------------------------------------------------------
procedure DisableTaskMgr(bTF: Boolean);
var
reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;

  reg.OpenKey('Software', True);
  reg.OpenKey('Microsoft', True);
  reg.OpenKey('Windows', True);
  reg.OpenKey('CurrentVersion', True);
  reg.OpenKey('Policies', True);
  reg.OpenKey('System', True);

if bTF = True then
  begin
    reg.WriteString('DisableTaskMgr', '1');
  end
else if bTF = False then
  begin
    reg.DeleteValue('DisableTaskMgr');
  end;
reg.CloseKey;
end;
//------------------------------------------------------------------------------
end.

{Ejemplo de como llamarla}
    DisableTaskMgr(True); //DEsactiva el Administrador de Tareas.
Pues aki lo tienes, espero y sea de tu ayuda.

Como favor te pido que si tu tambien puedes compartirme el codigo para blockear el ALT+TAB para Win 2000/XP. Porque a lo que leo solo te faltaba el codigo anterior para vender tu aplicación.

Saludos!
__________________
Guía de Estilo.

Última edición por madman fecha: 05-07-2003 a las 19:49:04.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 13:24:29.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi