Foros Club Delphi - Buscando texto en la memoria de un programa.

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

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

- - Buscando texto en la memoria de un programa. (https://www.clubdelphi.com/foros/showthread.php?t=88921)

Gracias escafandra

La verdad me ha ayudado mucho y sé que lo hacer simplemente con ganas de ayudar aunque aun me quedan algunas dudas

1)Recomendable Rad Studio o Lazarus?
2)El código otorgado como se podría emplear por ejemplo con Microsoft Word ? Y buscar una oración y reemplazarla?
3)Cuando compilo en Delphi 7 para 32 Bits me da una serie de errores, Igual en Rad Studio... Estoy descargando Lazarus a ver que tal...

un error en esta linea de código

Código Delphi [-]  while ((Ord(Str1^) or 32) = (Ord(Str2^) or 32)) and (Str1^ <> #0) and (Str2^ <> #0) and (Tdo

4) Y tal vez ya sea esto pedir mucho, quisiera saber si me podrías pasar el proyecto ya hecho, para verlo con detalle.

Bueno espero no sea mucha molestia, Muchas Gracias

Cita:

Empezado por deliriun (Mensaje 496050)

Recomendable Rad Studio o Lazarus?

Lazarus es gratis. :D

Cita:

Empezado por deliriun (Mensaje 496050)

El código otorgado como se podría emplear por ejemplo con Microsoft Word ? Y buscar una oración y reemplazarla?

Si. :D

Cita:

Empezado por deliriun (Mensaje 496050)

Cuando compilo en Delphi 7 para 32 Bits me da una serie de errores, Igual en Rad Studio... Estoy descargando Lazarus a ver que tal...

un error en esta linea de código

Código Delphi [-]while ((Ord(Str1^) or 32) = (Ord(Str2^) or 32)) and (Str1^ <> #0) and (Str2^ <> #0) and ...

Es un error del foro, la línea ha salido truncada, debe ser así:

Código:

while ((Ord(Str1^) or 32) = (Ord(Str2^) or 32)) and (Str1^ <> #0) and (Str2^ <> #0) and (T<N) do

Decirte que por diferente declaración de la API AdjustTokenPrivileges:
Lazarus:

Código Delphi [-]AdjustTokenPrivileges (hToken, FALSE, priv, sizeof(priv), PTOKEN_PRIVILEGES(0)^, PDWORD(nil)^);

Delphi:

Código Delphi [-]AdjustTokenPrivileges (hToken, FALSE, priv, sizeof(priv), nil, PDWORD(nil)^);

Cita:

Empezado por deliriun (Mensaje 496050)

Y tal vez ya sea esto pedir mucho, quisiera saber si me podrías pasar el proyecto ya hecho, para verlo con detalle.

Por motivos de espacio he subido los proyectos en el foro DA, aquí los tienes.

Saludos.

Gracias y Muchas Gracias

Bueno creo que ya todo esta Okey... Muchas Gracias escafandra eres un Dios....
Nada más que decir... si tengo alguna duda y no la puedo encontrar en la Web ya sé que aquí hay mucha ayuda

Saludos.