Marquesina Desplazante (Delphi)

para este proyecto lo que vamos a necesitar en la form es: un timer, un label, y un edit, una variable llamada Txt, de tipo String, un boton para mostrar el Texto

suponiendo que a cada componente le dejamos el nombre por defaul, seguimos con lo siguiente

al edit, leponemos en su propiedad de texto: "Este es el texto que se va a estar moviendo".
al timer el intervalo lo dejamo en 100.
al label en su propiedad caption lo dejamos en blanco.

Codigo del boton:
 Txt:= Edit1.Text; 
 Txt:=Label1.Caption;

En el Timer

Timer1Timer(Sender: TObject);

 Txt := Label1.Caption;
 Label1.Caption := Copy(txt, 2, Length(txt) - 1) + Copy(txt,1,1);


Esto es, si queremos que el texto se desplace hacia la Izquierda; ahora bien si queremos que se desplace hacia la derecha

 Txt := Label1.Caption;
 Label1.Caption := Copy(txt,Length(txt)-1,1) + Copy(txt,1, Length(txt)-1) ;

y listo tenemos nuestra marquesina desplazante.

Metodo para mensajes delphi

primero, Declaramos la funcion antes del type, esto con el fin de solo mandar llamar el procedimiento como msgbox.

Function MsgBox(Texto, Titulo: String; Flags: Word): Integer;

la funcion en si

Function MsgBox(Texto, Titulo: String; Flags: Word): Integer;

var

TextoMost, TituloMost: array[0..300] of Char;

begin{________________________________________________________________
0 S/Botones ->16 Error ->32 Inter ->48 Adev ->64 Info
1 A C---->17 Error ->33 Inter ->49 Adev ->65 Info
2 A R O-->18 Error ->---------->50 Adev ->66 Info
3 S N C-->19 Error ->35 Inter ->51 Adev ->67 Info
4 S N---->20 Error ->36 Inter ->52 Adev ->68 Info
5 R C---->21 Error ->37 Inter ->53 Adev ->69 Info
6 C R Co->22 Error ->38 Inter ->54 Adev ->70 Info
A=Aceptar;C=Cancelar;R=Reintentar;N=No,S=Si;Co=Continuar;O=Omitir
__________________________________________________________________}

StrPCopy(TextoMost, Copy(texto, 0, 299));

StrPCopy(TituloMost, Copy(titulo, 0, 299));

MsgBox := Application.MessageBox(TextoMost, TituloMost, Flags);

end;

y se manda llamar

MsgBox(' Este es el mensaje ','barra de titulo ',48);

MEMORIA VIRUTAL

Es un tipo de memoria que utiliza el sistema, pero en vez de almacenarse en los chips de la memoria RAM, se almacena en un archivo que está en nuestro disco duro.

Para descubrir los orígenes de la memoria virtual, tenemos que remontarnos a los años 40. En esa época tan solo existía un ordenador programable: el ENIAC, que debía ocupar como una habitación entera, lleno de válvulas y relés por todos los lados, y programable con tarjetas perforadas. Los programadores de semejante aparato se dieron cuenta de que los tiempos de búsqueda de sus programas eran enormes, así que propusieron asignar un bloque de memoria antes de iniciar la ejecución del programa, y después mantener este bloque creado durante toda su vida. Esto aceleraba los accesos de memoria, ya que ya estaba creada para el programa, sin embargo era un sistema muy rígido, ya que una vez asignada la memoria no se podía ampliar ni reducir su tamaño, y en esa época la cosa no estaba como para desperdiciar ni un solo octeto. Ya en los años 50, investigadores de la universidad de Manchester inventaron un método más astuto: dividirían la memoria en zonas (llamadas páginas lógicas) y almacenarían todas estas páginas en un tambor magnético (los abuelos de los discos duros que conocemos actualmente) . Cuando se fuera a ejecutar un programa, se llevaban a memoria central un grupo de páginas, dependiendo de los requisitos de memoria del programa a ejecutar. Podía ser una sola página (si el programa era pequeño), o todo el tambor completo (si el programa tenía mucho código o datos). Incluso durante la ejecución del programa, si era necesaria más memoria, se almacenaban en el tambor aquellas páginas que ya no fueran necesarias, y se volcaban en memoria nuevas páginas desde el tambor.Este método no llego a implementarse hasta 1962, cuando se construyó el ordenador Atlas, que fue el primer ordenador del mundo en utilizar un sistema de lo que hoy conocemos como “memoria virtual”.
Bien, volvamos a nuestro tiempo. Decíamos y que la memoria virtual es aquella que no se almacena en los chips de memoria, sin en un archivo de nuestro disco duro, que normalmente tiene extensión SWP (de Swap = intercambio). Este archivo, llamado archivo de paginación o de intercambio, sirve como una ampliación auxiliar de memoria cuando las cosas se ponen feas, es decir, cuando el sistema escasea de memoria (y en los tiempos que corren eso es demasiado habitual).Cuando tenemos muchas aplicaciones abiertas y el tamaño de todas ellas supera el total de memoria RAM física instalada, Windows mueve parte del contenido de la memoria al disco, para dejar espacio libre para nuevas aplicaciones, concretamente, mueve aquellas partes que hace más tiempo que no han sido accedidas. Cuando esos datos se necesitan de nuevo, se cargan otra vez en memoria. Por esta razón, cuando nuestro equipo está escaso de memoria, notamos que no para de leer del disco duro, porque está continuamente moviendo zonas de memoria del disco a RAM y viceversa (y por eso va lento).
Como veis, esto de la memoria virtual no es ninguna idea revolucionaria, y ya en los años 50 se pensaba en este sistema, aunque con las limitaciones de hardware que había en esa época.

Modelo de memoria plano

Cada vez que hacemos doble clic sobre un ejecutable (o cualquier otra manera de iniciar un programa), Windows llamará a la función CreateProcess para iniciar un nuevo proceso. Una de las cosas que hace esta función (entre otras muchas) es crear un espacio privado de direcciones virtuales de 4 GB… ¿Mandeeeeeeeee? A muchos lo único que le sonará familiar son los 4 GB, porque el resto parece chino. No es tan complicado, esto significa que Windows considera que tenemos una memoria de 4 GB (casi ná) y encima toda para nosotros. Así que disponemos de un rango de direcciones desde $00000000 hasta $FFFFFFFF, desde 0 hasta 11111111111111111111111111111111 (que nadie los cuente, que son 32 bits) o en cristiano: desde el byte 0 al byte número 4.294.967.295.
En teoría podríamos recorrernos ese rango a través de un puntero y todo funcionaría. Y digo en teoría porque las cosas no son tan sencillas, pero luego veremos por qué. A este modo de gestionar la memoria se le denomina “Modelo de memoria plano”.
Que tengamos un espacio de direcciones de 4 GB no significa que tengamos 4 GB de memoria RAM instalada (a ver quien es el afortunado), sino que la suma entre la memoria RAM física, y la memoria virtual puede llegar a 4 GB. ¿Y qué es la memoria virtual?

varias formas de quitar mensaje windows original

Algunos de uds, por no decir muchos deben tener las actualizaciones automáticas de su Windows XP activas y se encontraron con esta sorpresita. Ahora luego de haber actualizado su Windows les recuerda que son un gran apoyo a la piratería. Pues esta sección ha sido posteada para que ninguno de Uds se sienta mal por ello y elimine ese mensaje. A continuación los pasos para realizar esta tarea.
Inicia el Administrador de Tareas (Ctrl+Alt+Del).
Mata el proceso WgaTray.exe con el Administrador de Tareas.
Reinicia Windows XP en Modo Seguro (Safe Mode).
Borra el archivo WgaTray.exe de c:\Windows\System32.
Borra el archivo WgaTray.exe de c:\Windows\System32\dllcache.
Ve a Inicio->Ejecutar y escribe ‘RegEdit’.
Encuentra la carpeta en la dirección:HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft Windows\ NT\CurrentVersion\Winlogon\Notify
Borra la carpeta ‘WgaLogon’ y todos sus contenidos
Reinicia Windows XP.
Deshabilita las actualizaciones automáticas
Y adiós mensaje de piratería. Esto es realmente bueno.

Sacado de:
http://tech2live.wordpress.com/2006/10/19/eliminar-mensaje-copia-de-windows-no-es-original/

___________________________________________________________

Windows Genuine Advantage (WGA) es una utilidad antipiratería creada por Microsoft que, cuando se instala en Windows (a través de las actualizaciones automáticas), hace que nuestro ordenador se conecte automaticamente a los servidores de Microsoft de forma periódica para comprobar si nuestro Windows es original (esta herramienta se parece sospechosamente a un spyware).
Si no es original, muestra continuamente un molesto mensaje en la barra de tareas indicando que la copia de Windows no es legal. Muchas veces muestra este mensaje aunque nuestro Windows sea 100% original.
Para quitar ese mensaje, tenemos la herramienta removewga. Basta con abrir el programa y nos dirá si el WGA está ejecutándose en nuestro sistema y si es así, nos da la opción de deshabilitarlo, de forma que el mensaje no volverá a aparecer.
Si bajamos actualizaciones de Windows,el mensaje volvera a aparecer y será necesario volver a ejecutar el programa. Si esto te parece pesado, puedes bajar este fichero y guardarlo en la carpeta donde tienes el programa removewga. Después haces un acceso directo del fichero que acabas de bajar y lo pones en el menu inicio, programas, inicio. Así el programa se ejecutará cada vez que inicie Windows, pero solo nos mostrará un mensaje si el WGA está activo.
Si lo que quieres es activar Windows 2003, aquí tienes la solución.
Página oficial del programa
Información sobre WGA en Wikipedia (Inglés)

Sacado de:
http://igorgarcia.es/blog/quitar-genuine-advantage

____________________________________________________________

1. Inicie sesión en el equipo con una cuenta que tenga permisos administrativos.
2. Compruebe que la versión de Notificaciones WGA que existe en el equipo es una versión piloto. La versión piloto es la 1.5.0532.x. En este caso, solamente puede desinstalar las versiones 527-532.
Por ejemplo, usted puede desinstalar las versiones que van de la 1.5.0527.0 a la 1.5.0532.2. Para encontrar la versión de Notificaciones WGA, siga estos pasos:
a. Haga clic en Inicio y, después, en Panel de control.
b. Haga doble clic en Agregar o desinstalar programas, haga clic en Notificaciones de Ventajas de Windows Original y en Haga clic aquí para obtener información de soporte.c. En el cuadro de diálogo Información de soporte, compruebe el número de versión y haga clic en Cerrar.
3. Cambie el nombre de los archivos siguientes cambiando la extensión a .old:
• Cambie el nombre de %Windir%\system32\WgaLogon.dll por el de %Windir%\system32\WgaLogon.old• Cambie el nombre de %Windir%\system32\WgaTray.exe por el de %Windir%\system32\WgaTray.old
4. Reinicie el equipo.
5. Quite del Registro LegitCheckControl.dll utilizando Regsvr32. Para ello, siga estos pasos:
a. Haga clic en Inicio y en Ejecutar, escriba cmd y haga clic en Aceptar.
b. En el símbolo del sistema (cmd), escriba lo siguiente y presione ENTRAR:
Regsvr32 %Windir%\system32\LegitCheckControl.dll /u
6. Reinicie el equipo.
7. Haga clic en Inicio y en Ejecutar, escriba cmd y haga clic en Aceptar.
8. En el símbolo del sistema, elimine los archivos siguientes escribiendo el comando Del. Presione ENTRAR después de cada comando.
• Del %Windir%\system32\wgalogon.old• Del %Windir%\system32\WgaTray.old• Del %Windir%\system32\LegitCheckControl.dll
9. En el símbolo del sistema, escriba regedit.
10. Busque la siguientes subclaves del Registro y haga clic con el botón secundario del mouse (ratón) en ellas. Haga clic en Eliminar después de buscar cada subclave.• HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Notify\WgaLogon• HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Uninstall\WgaNotify

sacado de
http://www.forospyware.com/t46542.html
_______________________________________________________________

Configurar el Modem 2Wire para Wireles

hola que tal tal vez algunos se han topado con el problema de que la lap no funciona, con la configuracion del modem 2 wire que telmex da, pues bien aqui les explicare, las soluciones de los problemas mas comunes que pueden ser:

1. En ocasiones el Wireles de la lap esta desactivado, esto es solo para ahorrar un poco de energia, ya que como en los celulares el bluetooth esta desactivado en las lap, es igual, solo tienes que buscar en un lado de ella, un interruptor, y ponerlo en on, para activarlo, si en su defecto, no encuentras uno, busca en el el teclado una pequeña antenitta, esta debe de estar de color azul, que indica que lo puedes activar, o desactivar con el teclado, presionando la tecla de funcion del teclado seguido de la tecla donde se encuentra esta ícono antes mencionado.

Si al hacer esto no logras conectarte, y recives un mensaje que de que no se puede activar, entonces habria que checar lo que es el software, que controla, la tarjeta wireles, para saber cual es, es muy fácil, cuando abres las conexiones, te muestra cual es el software y como activarlo, si despues de esto no hay ninguna respuesta entonces debemos de checar la configuracion del modem.

2. En Ocasiones el modem, no tiene configurado ninguna contraseña, pero esta habilitada la seguridad inalámbrica, y en la configuracion de la lap, por fuerza tenemos que ponerle contraseña, pues bien lo que hay que hacer es:

en cualquier explorador de internet (ie, mozila, etc.) ponemos la siguiente direccion: 192.168.1.254, nos enviara a la página principal del modem

despuesdaremos click en el ícono de Red Domestica que es el tercero de la parte de arriba, y en el sub menu, seleccionamos configuracion inalámbrica,

Aqui debemos de checar que el boton de inalámbrico debe de estar " DESABILITAR", esto nos indica, que esta habilitado, pues bien si esta todo correcto, damos click a el boton de "MODIFICAR CONFIGURACION"

En esta parte solo debemos de desactivar la opcion de seguridad inalambrica, si esque queremos que cualquier persona entre, si no es asi, le ponemos una clave, y esta es la que ponemos en la lap, y ya tenemos una configuracion de nuestro modem

buscar archivos de txt sin conocer el nombre

este procedimiento es para delphi 7.0, solamente ahi lo he probado

Procedure TInterfaz.Cargar Sender:TObject);
Var
MiArchivoTxt:TextFile;
NombreArchivo, ArchivoABuscar,RutaArchivo:String;
SearchRec: TSearchRec;
Begin
ArchivoABuscar:='C:\*.Txt';
RutaArchivo:= 'C:\';
Try Begin
If FindFirst(ArchivoABuscar, faAnyFile and not (faVolumeID or faDirectory), SearchRec) = 0 then
Begin
Repeat
NombreArchivo:= SearchRec.Name;
AssignFile(MiArchivoTxt, NombreArchivo);
Memo1.Clear;
Memo1.lines.LoadFromFile(RutaArchivo + NombreArchivo);
DeleteFile(NombreArchivo);
Until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
End;
End;
Except end;
End;

Checar Fuente de Poder

En Ocasiones nos pasa que el equipo se nos reinicia, o solo entra y en unos cuantos segundos se reinicia o se apaga; una de las razones es por que la fuente de poder no esta aguantando el voltaje que requiere la tarjeta madre, o que tenga polvo en las conexiones y no haga bien contacto, ahora que si no prende lo que puedes ser esque la fuente de plano ya no sirve, ya se te murio.

pues bien para la primera opcion de que no este dandote el ancho, puedes o mas bien debes comprarte otra fuente de poder mas grande, y para no volver a regarla, checate las especificaciones de la tarjeta madre.

Si lo que tiene es polvo, solo quita las conexiones, y con aire comprimido, le das una soplada, para quitar el exceso de polvo,vuelves a conectar y listo.

Ahora para checar si tu fuente de poder sigue funcionando, sácala completamente de tu gabinete y mantenla desconectada, solo para tener un poco mas de comodidad;

Con un clip o algo que haga corriente, un alambre o algo por el estilo, lo vas introducir en el conector mas grande regularmente es el ATX, en el cable verde y la otra punta a uno de los cables negros que sería la tierra, Despues conectas la corriente; si la prende la fuente de poder, esque aun funciona, pero si esta no prende, o se apaga despues de un ratito, quiere decir que tu fuente de poder ya no sirve.

Hay algo que no debes de dejar pasar, que es los voltajes, esto lo puedes hacer con un multimetro, y checaras que tegan 3.3v (amarillo), 5v (rojo) y 12 (Naranja), cada uno con un cable negro, que son las tierras, y nadamas te sercioras que sean de ese voltaje y que no sobrepasen o les falte, por que si esto pasa, quiere decir que la fuente esta dañada.