Juego de damas

Aquí tienen el popular juego de damas con código fuente incluido, que incorpora la posibilidad de jugar en red. Para versiones posteriores a Delphi 6 es necesario adaptar el código para poder usar los componentes TTcpClient y TTcpServer.

Autores:
bestiol@club-internet.fr
bruno_g40@Hotmail.com

Código fuente

Componente para graficos radiales


Los gráficos radiales se usan para comparar de una forma precisa diferentes tipos de datos. En internet encontré un componente para Delphi muy completo y muy bien documentado llamado TQSpiderGraph que permite definir propiedades específicas a los ejes (número, colores...), background (transparencia, color, orientación del gradiente), número de líneas, su color, grosor.
Una función muy útil que tiene es la capacidad de seguir los movimientos del ratón para que cuando éste se sitúe cerca de un punto o una línea muestre un popup con sus valores.
La imagen del gráfico se puede copiar al disco o a un bitmap en memoria.
El zip viene con el código fuente, demo y archivo de ayuda.

Link: http://mapage.noos.fr/qnno/files/TQSpiderGraph%20v1.1.zip

Aproximación a PI por el método Monte Carlo


El método de Monte Carlo es un método no determinístico o estadístico numérico usado para aproximar expresiones matemáticas complejas y costosas de evaluar con exactitud. El método se llamó así en referencia al Casino de Montecarlo por ser “la capital del juego de azar”, al ser la ruleta un generador simple de números aleatorios. El nombre y el desarrollo sistemático de los métodos de Monte Carlo datan aproximadamente de 1944.

function CalculatePi(ACount: Cardinal): Extended;
var
x, y: Real;
i, hits: Cardinal;
begin
Randomize();

hits := 0;
for i := 0 to ACount-1 do
begin
x := Random(10);
y := Random(10);
if ((x * x) + (y * y) <= 1) then Inc(hits); end; Result := 4 * (hits / ACount); end; procedure calcularPI; begin showmessage (FloatToStr(CalculatePi(10000))); end;


LIBROS:

Matemáticas, el fascinante mundo de los números

Matrix computations (Matematical Science)

Geometría analítica del plano y del espacio

Mecánica de fluidos


Geometría Afín y Euclidea

Autoclic con Delphi


Software para simular pulsaciones de teclado
Este programa permite grabar las secuencias de puntos sobre la pantalla para después simular la pulsación de 1 clic de ratón sobre ellos, también es posible especificar un nombre para las secuencias a teclear y poner un delay entre cada clic y entre cada secuencia.
Con este soft podrán hacer clic a intervalos regulares sobre un banner y además evitar muchas secuencias repetitivas que los programadores tenemos que hacer a diario.

Autor:
http://pogopixels.fr/

Código fuente

Librería Dokan - implementar sistema de ficheros


Dokan es una librería que implementa todas las funciones necesarias para crear un sistema de archivos para Windows en modo usuario evitando las dificultades que conlleva crear un driver en modo nativo, según la documentación Dokan es similar a FUSE de Linux, pero trabajando en Windows.
Por ejemplo se podría utilizar para ampliar las capacidades del sistema FAT o NFTS.
Su autor es Hiroki Asakawa info@dokan-dev.net y la traducción a Delphi está realizada por Vincent Forman (vincent.forman@gmail.com)

Página del autor
http://dokan-dev.net/en/about/

Traducción Delphi



iniciar programas al encender el PC

Un método para que una aplicación o servicio se arranque al iniciar windows es almacenar su path en el registro dentro de las carpetas "Run, RunOnce o RunServicesOne" de la siguiente forma:

uses
Registry;

TAutorunkind = ( akRun, akUserRun ,akRunOnce, akUserRunOnce , akRunServices,akRunServicesOnce );

function CreateAutorunEntry(const AName, AFilename: string; const AKind: TAutorunKind): Boolean;
var
Reg: TRegistry;
begin
Result:=False;
Reg := TRegistry.create;
try
if
(AKind=akUserRun) or (AKind=akUserRunOnce) then
Reg.Rootkey:= HKEY_CURRENT_USER
else
Reg.RootKey := HKEY_LOCAL_MACHINE;

case AKind of
akRun, akUserRun : Result:=Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
akRunOnce, akUserRunOnce: Result:=Reg.OpenKey(
'Software\Microsoft\Windows\CurrentVersion\RunOnce', True);
akRunServices : Result:=Reg.OpenKey(
'Software\Microsoft\Windows\CurrentVersion\RunServices', True);
akRunServicesOnce : Result:=Reg.OpenKey(
'Software\Microsoft\Windows\CurrentVersion\RunServicesOnce', True);
end;
Reg.WriteString(AName, AFilename);
finally
Reg.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
CreateAutorunEntry(Application.Title, ParamStr(0), akUserRunOnce);
end;

Cifras y Letras


Para los que quieran jugar a "cifras y letras" aquí tienen un programa escrito en Delphi. La pega es que está en francés, pero cambiando el archivo "dictionnary.txt" por otro que contenga palabras en español asunto arreglado.

Link de descarga

Relacionados:
Juego del mastermind
Juego de damas
Juego del tangram



Resolver sistemas de ecuaciones de N incognitas

Esta unit permitirá resolver un sistema de ecuaciones de N incóginitas por el método del pivot de Gauss.

Link de descarga

Búsqueda de Malware con Delphi

Aquí os presento un programa que buscara en vuestro equipo diferentes tipos de malware:
38 Adware
106 BackDoor
1 Hijackers
10 KeyLogger
1 Ver
3 Virus
10 AutoRun
Es un scanner gratuito opensource realizado por mrClock mrclock@hotmail.fr
Este scanner no borra/reemplaza/renombra ningún fichero de tu equipo.

Link de descarga



Wake On Lan

Todas las tarjetas de red actuales soportan WOL, para ello es necesario que en la Bios activen la función Wake On Lan (en algunas tarjetas de red hay que conectar un cable a la placa base del equipo)
Para encender un equipo es suficiente con enviar por red el paquete mágico que es de la forma 6 x "FF" seguido de 16 x dirección MAC de la máquina a despertar.

Ej: (procedente de un sniffer)
-----------------------------
ff ff ff ff ff ff 00 40 e3 e9 c8 62 00 40 e3 e9 c8 62 00 40 e3 e9
c8 62 00 40 e3 e9 c8 62 00 40 e3 e9 c8 62 00 40 e3 e9 c8 62 00 40
e3 e9 c8 62 00 40 e3 e9 c8 62 00 40 e3 e9 c8 62 00 40 e3 e9 c8 62
00 40 e3 e9 c8 62 00 40 e3 e9 c8 62 00 40 e3 e9 c8 62 00 40 e3 e9
c8 62 00 40 e3 e9 c8 62 00 40 e3 e9 c8 62

Las tarjetas de red están permanentemente escuchando, de tal forma que cuando reciben el paquete mágico es igual que pulsar el botón de encendido

Descarga del programa que envía el paquete mágico


Cómo configurar el PC para WOL:
http://www.vicente-navarro.com/blog/2007/06/03/wake-on-lan/