Foros Club Delphi - Inactivar el menú inicio

Página 1 de 2

Mostrar 40 mensajes desde este tema en una página

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Inactivar el menú inicio (https://www.clubdelphi.com/foros/showthread.php?t=2003)

diegofhernando

05-07-2003 00:27:53

Inactivar el menú inicio

Que tal amigos del foro...

Hoy me la he pasado 8 horas y 45 tratando de encontrar el código o algún componente que me permita inactivar el menu inicio de windows incluyendo 2000 y XP. pero solo encuentro trucos para win9x... :( . Lo peor es que de esta función depende la venta de mi aplicación (Bastante frustrante no??? :mad: ). Agradecería que me indicaran algun componente o código que me permita hacer esto... hasta donde he podido darme cuenta no es necesario el uso de una DLL...

Gracias por la ayuda que me puedan prestar.

Salu2.

madman

05-07-2003 03:01:48

Yo tambien la he hecho de detective y nada...
Tambien buscó la solucion a ese problema, pero todavia sin resultados.

Aunke tengo esta interrogante, ¿ya has desactivado la opción de ALT+TAB en el Win 2000/XP?

Hasta este momento solo puedo desactivar el CTRL+ALT+SUPR.

Lepe	05-07-2003 12:45:47

Hola:

Extraido de trucomania :

Oculta el boton inicio y lo hace aparecer, PROBADO EN WINXP :) y supongo que en windows 98 tambien funcionará.

Si quieres ocultar los iconos del escritorio, lo puedes hacer en windows sin tocar nada por programacion,

procedure TForm1.Button1Click(Sender: TObject);
begin
{Hacer desaparecer el boton}
{Hide the Button}
ShowWindow (
FindWindowEx(FindWindow(
'Shell_TrayWnd',
nil),
0,
'Button',
nil)
,SW_Hide);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
{Mostrar el boton}
{Show the button}
ShowWindow (
FindWindowEx(FindWindow(
'Shell_TrayWnd',
nil),
0,
'Button',
nil)
,SW_ShowNormal);
end;

Lepe	05-07-2003 13:01:53

Reholas :D

Si lo que deseas es ocultar ciertas opciones del menu de windows, unicamente haz una busqueda de los elementos que quieres ocultar y ponle el atributo de oculto en la carpeta c:\Documents and settings de windows XP o 2000, todo lo que pongas oculto no saldrá en el menu de windows.

Puede que te sea mas comodo hacerlo al revés, ocultar todo y solo mostrar lo que tu quieras, mientras no sea el panel de control y cosas así es facil hacerlo.

o bien lo haces manualmente, o por programación. la unidad NKFiles distribuidas con las RXLibs tienen rutinas para encontrar archivos siguiendo un patrón :

// Devuelve una lista con todos los ficheros de un directorio que se ajustan
// a la máscara cMask, con unos atributos dados, si lRecursive vale True,
// busca también en los subdirectorios, en los subdirectorios de los
// subdirectorios, etc.
// Devuelve False si el directorio no existe.
function FindFilesInDir(const cDir:String; cMask: TStrings; iAttr: Integer; lRecur: Boolean; S: TStringList): Boolean;

¿te sirve algo de todo esto?

diegofhernando

05-07-2003 16:23:36

Gracias por sus respuestas...

La verdad es que solo con ocultar el boton del inicio no basta puesto que si presionas la tecla Windows el aparece como si nada. Me llama la atención el echo de ocultar elementos del mismo pero con lo que me indican no se me ocurre, si no es molestia agradecería un ejemplillo :p ...

Gracias de nuevo y MADMAN podrías compartirme como inhabilitar CTRL + ALT + SUPR en 2000 y XP?

Salu2:cool:

madman

05-07-2003 19:46:28

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!

roman

06-07-2003 20:52:18

Aquí les pongo algo que me parece puede servirles.

No parece haber una opción en Win2000 parra deshabilitar por completo el menú de inicio; sin embargo se pueden deshabiltar una a una sus opciones, por ejemplo, el panel de control, la configuración de la barra de tareas, el comando "Apagar", el comando "Ejecutar" etc.

Tal como hace Madman, lo que hay que hacer es agregar las entradas correspondientes en

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer

El truco está en saber cuáles son las entradas. Para ello abran "Ejecutar" del menú inicio y ejecuten gpedit.msc para abrir la ventana de "Directivas de grupo". En esta ventana, en el árbol de la izquierda hay un rubro "Plantillas administrativas" que, entre otras, tiene las opciones "Menú inicio y barra de tareas" y "Panel de control". A la derecha les aparecerán todas las directivas que pueden controlar. En cada opción hacen "doble click" para ver sus propiedades en donde pueden habilitar o deshabilitar la opcón y en la segunda pestaña ver una explicación de lo que hace la opción.

El siguiente paso sería abrir RegEdit parra ver cuáles son las entradas que se agregan al registro para cada opción y así saber como configurarlas por código.

Espero que les sea útil. No pongo exactamente las directivas ya que son muchas pero no les costará trabajo averiguar cuáles son las que necesitan.

// Saludos

roman

06-07-2003 21:03:29

Una aclaración:

El rubro "Plantillas administrativas" que menciono es el que se encuentra en "Configuración de usuario", no el que se encuentra en "Configuración del equipo"

// Saludos

madman

07-07-2003 06:52:46

Muchas gracias roman, verificare y analizare los datos que nos proporcionas.

Y daré los resultados a conocer, si alguien termina antes que yo por favor haganoslo saber :D

diegofhernando

08-07-2003 15:58:01

Hola MADMAN, pues lo cierto es que no tengo código para desactivar ALT + TAB... :rolleyes: , y según veo tu el tuyo declaras la función para registrar servicios en la DLL Kernel32... no estoy seguro de que funcione en 2000 y XP puesto que tengo entendido que esta función ya no se encuentra alli... te agradecería que me confirmaras si ya la has probado en estas plataformas...

Salu2:cool:

madman

08-07-2003 17:44:38

Pues por eso lo puse.
Porque a mi si me ha funcionado.

Lo que hace este codigo es desactivar el Administrador de Tareas (el cual te muestra todos los programas abiertos y cerrarlos si quieren). Ya que he probado este codigo en Win2000 y cuando se presionan las 3 teclas te aparece la ventana con las opciones de Blockear, Cerrar Sesión, Apagar, Cambiar Password, y la del Administrador de Tareas desactivado.
Igual si vas a la barra de tareas y presionas boton derecho.

Lo que no le permite al usuario Cerrar las aplicaciones.

Y por cierto si no desactivas el ALT+TAB los usuarios van a poder cambiar de ventana, cambiando de aplicaciones. Aunke la verdad no se como estes blockeando la computadora, si colocando un form que abarke toda la pantalla para ke el usuario no vea nada, o tan solo este en la barra de sistema.

madman

09-07-2003 06:04:08

Hola!

He buscado en google y me he encontrado lo siguiente, para los interesados:

El codigo que muestran está en VB y viene algo referente a C++:
Deshabilitar Alt+Tab en Windows XP

Pero este si está en Delphi y nos explica varias cosas:
"The Big Brother" Delphi code toolkit

El demo que viene en un link (dWinLock) si funciona activa y desactiva todas las teclas funcionales de windows y alguna que otra cosilla más.

diegofhernando

11-07-2003 01:11:43

El dWinlock funciona bien el problema es que no es FREE y el segundo es que funciona con una DLL...

madman

11-07-2003 03:33:42

El que no sea FREE no quiere decir que es un GRAN problema, 69€ (no se cuanto valdrá cada € aqui en México).

Pero si voy a vender una aplicación, realmente creo que valdría la pena comprarlo.

Ya que con este componente te aseguras que tu aplicación es realmente "bueno". Aunke depende tambien de las demas caracteristicas que tenga.

Pero si existe código o componente FREE, pues es bien recibido :D

roman

11-07-2003 18:47:42

Cita:

Posteado originalmente por madman
El que no sea FREE no quiere decir que es un GRAN problema, 69€ (no se cuanto valdrá cada € aqui en México).

...

Pero si existe código o componente FREE, pues es bien recibido :D

Pues según mi agente :p 69€ son casi $900 pesos mexicanos y para ser sincero yo no pago esa cantidad por bloquear unas cuantas teclas, mejor tomo un martillo e inhabilito yo mismo las teclas y gratis :D.

Ahora que, si al cliente esto le parece un poco excesivo pues escribo el código yo mismo. En las ligas que pusiste anteriormente está toda la información para hacerlo, ¿ya qué le buscan? Tienen que utilizar "Hooks". En la referencia del Api de Windows explica además que este tipo de "hooks" deben implementarse en un dll, de ahí que dWinLock utilice un dll. Sin embargo, en la primera referencia que das, aunque no la he revisado a conciencia, explica como anexar el dll como un recurso de nuestra aplicación para no tener que distribuir un archivo extra.

// Saludos

andres1569

11-07-2003 19:37:54

Román escribió:

Cita:

... mejor tomo un martillo e inhabilito yo mismo las teclas y gratis

Bueno, bueno, bueno, te recuerdo Román que en estos foros se trata de buscar soluciones software, no soluciones hardware por muy respetable que sea la opción que propones. :D:D:D

Y ya que hablan de Hooks, este es un tema que tengo calentito de otro hilo, si ponen entre todos los suscritos a este hilo unos 100 € (unos 1300 pesos mexicanos), aprovecho este fin de semana para implementar algo, y la semana que viene les cuento. El código estaría sujeto a la especificación CDPL (Club Delphi Public License). :D

roman

11-07-2003 19:50:51

Cita:

Posteado originalmente por andres1569
...Y ya que hablan de Hooks, este es un tema que tengo calentito de otro hilo...

¿Cuál es el hilo?

// Saludos

andres1569

11-07-2003 21:29:46

Hola de nuevo:

Es el hilo nº 783,

o si lo prefieres puedes pinchar este enlace: :)

http://www.clubdelphi.com/foros/show...=&threadid=783

roman

15-07-2003 02:36:04

Quienes deseen código gratuito para inhabilitar Alt+Tab, Alt+Esc, Ctrl+Esc, Alt+F4, Win y Apps en Windows2000 pueden tomarlo de mi página

// Saludos

madman

15-07-2003 04:06:08

Y yo que ya pague por el dWinLock :(

jejeje... no es cierto, pero si pudiera lo haria.

Pero el código que proporcionas roman, pues tambien lo he probado en mi computadora con Win2000 SP4 y si funciona :D.

Sería nada mas que alguien nos hiciera el favor de ejecutarlo en un Windows XP. Aunque creo que debe funcionar ya que ambos estan basados en tecnologia NT.

La franja horaria es GMT +2. Ahora son las 23:52:11.

Página 1 de 2

Mostrar 40 mensajes desde este tema en una página