Leer los datos del visor de sucesos

Este software permite leer los datos del visor de sucesos de windows xp o windows 7 Aplicación, seguridad y sistema.


Fuente: http://nono40.fr.st
nono40@fr.st
Descargar código

Relacionados

Notificar cambios en ficheros

Obtener los KBDI instalados en el sistema

Bloquear disco

Actualizar la hora en el PC

Function PonerEnHora(Fecha:TDateTime):Boolean;
Var Infos :TSystemTime;
Zone :TTimeZoneInformation;
Rdo :Integer;
Begin

Result:=False;
Rdo:=GetTimeZoneInformation(Zone);
// Fecha es Hora local =>se ajusta el decalaje para obtener la hora absoluta
Case Rdo Of
TIME_ZONE_ID_UNKNOWN : Fecha:=Fecha+( Zone.Bias /(24*60));
TIME_ZONE_ID_STANDARD : Fecha:=Fecha+((Zone.Bias+Zone.StandardBias)/(24*60));
TIME_ZONE_ID_DAYLIGHT : Fecha:=Fecha+((Zone.Bias+Zone.DaylightBias)/(24*60));
Else
Exit;
End;
Infos.wYear :=YearOf (Fecha);
Infos.wMonth :=MonthOf (Fecha);
Infos.wDayOfWeek :=DayOfWeek (Fecha);
Infos.wDay :=DayOf (Fecha);
Infos.wHour :=HourOf (Fecha);
Infos.wMinute :=MinuteOf (Fecha);
Infos.wSecond :=SecondOf (Fecha);
Infos.wMilliseconds :=MillisecondOf (Fecha);
Result:=SetSystemTime(Infos);
End;

(se necesita tener derechos administrativos para actualizar la hora del sistema)

y la llamada sería:

If PonerEnHora(EncodeDate(2011,4,22)
+EncodeTime(17,0,0,0))
Then ShowMessage('Puesta en hora OK')
Else ShowMessage('Error al poner en hora');

Utilizar el componente Windows Media Player en Delphi

Lo que vamos a hacer es incorporar el objeto tWindowsMediaPlayer en Delphi 2009 . Al final de este proceso aparecerá en la "Tool Palette" dentro de la pestaña "ActiveX".

Desde el menú Component->Import Component
- Seleccionar “Import ActiveX Control” y pulsamos “Next”
- Marcamos “Windows Media Player” y pulsamos “Next”
- En la casilla “Palette page” marcamos “ActiveX” y pulsamos “Next”
- Dentro de las opciones disponibles hacemos clic en “Install to existing package”
Pulsamos el botón “Browse” y localizamos el archivo “dclusr.dpk” que en Delphi 2009 está en C:\Archivos de programa\Codegear\Rad Studio\6.0\lib y pulsamos “Finish”.

Si todo es correcto tendremos lo siguiente:


Los componentes los tendremos en View-> Tool Palette->ActiveX

No olvidar indicar desde Tools->Options->Delphi Options->Library Path
El siguiente path: “C:\documents and settings\ .....\mis documentos\rad studio\6.0\Imports, ya que allí es donde se encuentra la unit WMPLib_TLB necesaria para compilar nuestro programa

Para crear un nuevo programa vamos a File->New->VCL Forms application Delphi
Y en el form de la aplicación arrastramos el componente tWindowsMediaPlayer desde la paleta de componentes (ActiveX)



Y en la propiedad URL indicamos el archivo de música que queremos reproducir.
También se puede poner un tButton para ejecutar la función “Play”, “Pause” o “Stop”

//Funcion Play
WMP.URL:='Cancion1.mp3';
WMP.controls.play;
ArchivoQueSeEstaReproduciendo.Caption:=WMP.currentMedia.name;

//Funcion Pause
WMP.controls.pause;

//Funcion Stop
WMP.controls.stop;

//Estado
CASE WMP.playState of
wmppsUndefined: ;
wmppsStopped: ;
wmppsPause: ;
end;

//Gestión del volumen
WMP.Settings.volume:=50;

//Crear una nueva playlist
WMP.playlistCollection.newPlaylist(EdTitrePlayList.Text)

//controles
WMP.controls.previous;
WMP.controls.next;

//repetir modo aleatorio
WMP.settings.setMode('shuffle',true);

//repetir modo loop
WMP.settings.setMode('loop',true);



Post relacionados:


Reproducir archivo MIDI en un piano virtual


Visualizar el espectro de frecuencias de sonido


Conversor MPEG4 a AVI


Simulación del enfriamiento de una partícula


Este es un algoritmo para calcular el grado de enfriamiento de una partícula que se mueve en el espacio 2D.
Se calcula aplicando una ecuación diferencial de Newton para el enfriamiento de la materia. Lo interesante es que si una partícula cruza el camino de otra, en su intersección se calentará más de lo que la segunda partícula habría calentado habitualmente. Esto es debido a que el calor residual que ya estaba allí, se suma al calor de la nueva partícula que está llegando.

Web: http://www.partow.net/projects/virtualpflame/index.html
Código fuente: http://www.partow.net/downloads/particleflame-source.zip