Ver Mensaje Individual
  #22  
Antiguo 30-08-2015
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.210
Reputación: 22
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Cita:
Empezado por deliriun Ver Mensaje
Recomendable Rad Studio o Lazarus?
Lazarus es gratis.

Cita:
Empezado por deliriun Ver Mensaje
El código otorgado como se podría emplear por ejemplo con Microsoft Word ? Y buscar una oración y reemplazarla?
Si.

Cita:
Empezado por deliriun Ver Mensaje
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 Ver Mensaje
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.
Responder Con Cita