Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 23-01-2008
alquimista alquimista is offline
Miembro
 
Registrado: ene 2008
Posts: 213
Poder: 19
alquimista Va por buen camino
Thumbs up

Ya he localizado el hilo de actualización de app por web.

He visto que lo que comentabas en esos hilos se parece a lo que decia, pero no se me habia ocurrido los de obtener la versión del exe en ejecución. Como la app mia es la que mira si se actualiza y lleva una const con la versión pos no me hace falta.
He visto tu web y trae código muy interesante sobre la descarga web. Lo he probado sobre delphi 2006 y he tenido que cambiar un par de cosas y ha funcionado correctamente.

Gracias por la ayuda.

Responder Con Cita
  #2  
Antiguo 24-01-2008
alquimista alquimista is offline
Miembro
 
Registrado: ene 2008
Posts: 213
Poder: 19
alquimista Va por buen camino
He estado haciendo pruebas con mi app.
Y por supuesto falla en cosas triviales.
¿Si creo un usuario fijo para todos los pcs desde mi programa y utilizo
CreateProcessWithLogonW, desde un usuario limitado podría funcionar?

¿Como puedo desde delphi crear un usuario fijo con privilegios de Admin desde cuenta Admin?

Al deshabilitar Ctrl+Alt+Supr desde la app (HKLM\....) me falla también en user limitado.
- mi appp cuando arranca lo cambia en registro y cuando finaliza vuelve a habilitar Ctrl+alt+supr. ¿Sirve también usar (HKCU\....)?

Me tiene frito es usuario limitado

Ya se que son muchas preguntas, pero en el fondo es por culpa de no poder escribir en el registro.


Gracias
Responder Con Cita
  #3  
Antiguo 24-01-2008
Avatar de cHackAll
[cHackAll] cHackAll is offline
Baneado?
 
Registrado: oct 2006
Posts: 2.159
Poder: 22
cHackAll Va por buen camino
Desde una cuenta con privilegios de administrador SI puedes crear otra cuenta con privilegios de administrador; la cual la podrás utilizar desde una cuenta limitada con cualquier método "run as" como el que comentas.

Para crearla (puesto que lo harás casi manualmente; puedes utilizar un VBScript, acá te lo dejo; crea un usuario de nombre "admin" y password "HAclave". debes crear un archivo ".VBS" y copiar lo siguiente:

Código:
set o=createobject("shell.users").create("admin")
o.setting("AccountType")=3
o.changepassword "HAclave", ""
Ahora podrás realizar lo que necesitas... lo del Ctrl+Alt+Del (supongo que te refieres al "DisableTaskMgr"), es efectivo en todas las cuentas que tengan reg (HKCU)

Saludos

Última edición por cHackAll fecha: 26-01-2008 a las 02:35:47. Razón: Fallaba un parámetro
Responder Con Cita
  #4  
Antiguo 25-01-2008
alquimista alquimista is offline
Miembro
 
Registrado: ene 2008
Posts: 213
Poder: 19
alquimista Va por buen camino
Bueno me rindo. Se ve que me viene grande esto del delphi.

Tampoco me funciona DisableTaskManager en usuario limitado.
Voy a añadir taskmng.exe a la lista negra de mi app y que chequee la lista cada 10 segundos.
Y pasaré a un fichero codificado las password de la app y ciertas configuraciones del programa.

Creo que esto ya se puede cerrar.

Si alguien quiere ayudarme a pulir mi app.
¿En que hilo se puede poner?
-Es un matajuegos que utiliza un escaner de ficheros (usando un componente findfile), un ShellNotify para detectar creación de archivos y el mataprocesos con una lista negra de programas.

Gracias por las respuestas
Responder Con Cita
  #5  
Antiguo 26-01-2008
Avatar de cHackAll
[cHackAll] cHackAll is offline
Baneado?
 
Registrado: oct 2006
Posts: 2.159
Poder: 22
cHackAll Va por buen camino
No pudiste con esta clave?:

Código:
[HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Policies\System]
Supongo que el código para crear un usuario en VBS te resultó algo "extraño", en tal caso te lo pongo en Delphi:

Código Delphi [-]
uses ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
var user: OleVariant;
begin
 user := CreateOleObject('shell.users');
 user := user.create('admin');
 user.changepassword('HAclave', '');
 user.setting('AccountType') := 3;
end;

PD: no entiendo cual es el problema; en fin

Suerte
Responder Con Cita
  #6  
Antiguo 26-01-2008
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 31
Lepe Va por buen camino
Busca "EnditAll" por google, es un programa que hace exactamente eso y ofrece el código fuente.

Eso sí, el código es más raro que el escrito por cHackAll .

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
  #7  
Antiguo 26-01-2008
alquimista alquimista is offline
Miembro
 
Registrado: ene 2008
Posts: 213
Poder: 19
alquimista Va por buen camino
Me he rendido temporalmente, ya que dispongo de muy poco time para la app.

El problema solo lo tengo en usuarios limitados.
Voy a explicarlo con más detalles para que comprendáis mi problema.
Perdonad si me repito en alguna cosa.
Ya que en mi programa deshabilito ctr+alt+supr con lo del registro y cuando salgo de programa (al apagar Windows) vuelvo a habilitar ...
Esto va que ni pintado en Administrador. Pero como el user limitado no permite escribir en esa clave resulta que si que pueden ejecutar el admin de tareas y aparte no puedo grabar tampoco los fichero de log que tiene mi app, ni tampoco me permitiría actualizar la app desde user limitado.
El programa hace lo que tiene que hacer (matar procesos de aplicaciones en lista negra), pero claro si resulta que el user limitado puede matar el proceso la hemos fastidiado.

Como dije hay muchos Pcs con Winxp y una media de 10 user (variados admin y limitados).
La idea era crear en todos los usuarios una cuenta fija de admin para utilizar procedimientos de "run as" pero no estoy muy puesto y al intentallo con el Ceate..LogonW me ha pegado una peazo excepción, aparte de no saber que poner en el parámetro domain (puse el nombre de la máquina) ya que no estan en dominio los pcs.
He probado lo de los permisos del registro. pero no me funciona bien. Toqué el usuario restringido por si era general para todos los usuarios limitados.

El programa lo instalo con el NSIS (Instalador Nullsoft) y graba la app en C:\Windows\app\ desde una cuenta de Admin.

Espero haber aclarado un poco el problema.

Gracias
Responder Con Cita
Respuesta


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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
como grabar todos los sonidos que reproduce windows gulder Windows 5 22-01-2011 02:16:08
Grabar datos definodos por el usuario en B.D frankmch Conexión con bases de datos 8 05-12-2007 18:46:58
Como modificar el registro de windows xp mediante delphi 7 kurono Varios 11 05-11-2007 15:24:24
Como averiguar el usuario de windows Telemaco PHP 8 26-07-2004 10:15:10
Como modificar el Registro de Windows Mariana Varios 3 08-10-2003 18:20:14


La franja horaria es GMT +2. Ahora son las 03:41:39.


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