0 = Inicio Normal
1 = Inicio Seguro
2 = Modo a prueba de errores con red

ejemplo de uso

var inicio:integer;
begin
 inicio := GetSysTemMetrics(SM_CLEANBOOT);

 case inicio of
 1: ShowMessage('Inicio Normal');
 2: ShowMessage('Modo de Prueba');
 3: ShowMessage('Modo a prueba de errores con red');
 else
 ShowMessage('No se ha detectado');
 end;
end;

Con la función SendEmailByDefault podemos crear un email y enviarlo con el programa definido por el sistema, su declaración es la siguiente

Function SendEmailByDefault(Para:string=’user@host.com’;Titulo:string=’Te envio este email’;Contenido:string=’Ese es el contenido’):Boolean;

Los parametros que tenemos que pasar son
Para: Dirección email que queremos enviar el email
Titulo: Titulo del mensaje
Contenido: Cuerpo del mensaje que puede ser texto llano o bien HTML enrrequecido

Código de la función SendEmailbyDefault

uses ..., ShellApi;
...
Function SendEmailByDefault(Para:string='user@host.com';Titulo:string='Te envio este email';Contenido:string='Ese es el contenido'):Boolean;
var
Parametros:string;
begin
Result:=true;
try
Parametros := 'mailto:' + Para + '?subject=' + Titulo + '&Body=' + Contenido;
ShellExecute(Form1.Handle, 'open', PChar(Parametros), nil, nil, SW_SHOWNORMAL);
except
Result:=true;
end;
end;

Recueda en declarar en uses la libreria ShellApi para poder utilizar funciones de la Win32Api de windows

Su uso

procedure TForm1.Button2Click(Sender: TObject);
begin
SendEmailByDefault('usuario@usuario.com','Buenas tardes','Para mas informacion llamame');
end;

en mi caso tengo configurado el Thunderbird como programa de correo por defecto, me pide la clave de mi correo y lo envia

en el sitio mygnet podemos encontrar 19 manuales publicados sobre el lenguaje delphi, podemos descargar los siguientes manuales e tutoriales, están comprimidos en formato .rar sino dispones de un descompresor de archivos, recomiendo el programa 7zip

Generación de Menús y trabajo sin formularios
Empezamos a programar usando delphi
Formularios y componentes en delphi
Punteros y estructuras en object pascal
Object pascal
Introduccion a delphi
Manejo de bd en delphi
Delphi manula FV
Programacion internet con Delphi
Introduccion a Delphi (otro)
Manual de Delphi
Otro Manual de Delphi
Manual de Delphi
Uso de acces 2000 o superior en Delphi
Programacion en Delphi
Principales controles dirigidos a datos
Principales controles dirigidos a datos II
Funcionamiento de tablas planas II
Excepciones

Set de iconos de User Interface Icons.com
Podemos encontrar un total de 140 iconos con diferente tamaño 80×80, 48×48,32×32 y 24×24 pixeles, el formato estan en .png, el delphi 7.0 que tengo nativamente no carga archivos gráficos .png, podemos convertirlos en .jpg con algun conversor online o bien instalar el componente Tpng de delphi

Visto en: www.userinterfaceicons.com
Descarga iconos: 140 iconos de userinterfaceicons
Licencia: Creative commons

Set de iconos de Vistaicons.com
En esta página podemos hallar un monton de set de iconos a estilo windows vista, realmente vale la pena utlizarlos

Visto en: www.vistaicons.com
Descargar iconos: visitar la página de vista icons para descarregar
Licencia: Solo para uso personal

Set de iconos de Fugue
En esta página podemos hallar un monton de iconos para nuestras barras de herramientas,lastima que son pequeños

Visto en: www.pinvoke.com
Descargar iconos: descargar fugue icons
Licencia: Creative Commons

• Definicion de variables para tratar fechas en delph y tipecast (I)
• funciones para extraer partes de una fecha y codificar fechas (II)
• funciones para modificar fechas (III) *pronto
• funciones para comparar fechas (IV) *pronto
• funciones extras para fechas (V) *pronto

Funciones para extraer partes de una fecha

En delphi existen funciones especificas para extraer las partes que conforman una fecha como el año, mes y dia , y en caso de tener una variable con fecha y hora, podemos separar año, mes, dia , hora, minutos, segundos y milisegundos.

La función de que hablamos es DecodeDate, DecodeTime de la unidad SysUtils y DecodeDateTime de la unidad DateUtils

Procedure DecodeDate(Date: TDateTime,var Year, Month, Day: Word); //SysUtils
Procedure DecodeTime(Date: TDateTime,var Hour, Min, Sec, MSec: Word); //SysUtils
Procedure DecodeDateTime(Date: TDateTime,var Year, Month, Day, Hour, Min, Sec, MSec: Word); //DateUtils

Las variables que tendran las partes de la fecha las tendremos que declarar como Word y recuerde en cargar en Uses la libreria RTL DateUtils

Ejemplo

Uses DateUtils;
//...
var
MiFecha:TDateTime;
Year,Month,Day,Hour,Min,Sec,Msec:word;
begin
MiFecha := now(); //07-05-09 23:37
DecodeDate(MiFecha,Year,Month,Day);
DecodeTime(MiFecha,Hour,Min,Sec,MSec);

ShowMessage('Año ' + IntToStr(Year));
ShowMessage('Mes ' + IntToStr(Month));
ShowMessage('Dia ' + IntToStr(Day));
ShowMessage('Hora ' + IntToStr(Hour));
ShowMessage('Minuto ' + IntToStr(Min));
ShowMessage('Segundo ' + IntToStr(Sec));
ShowMessage('Milisegundo ' + IntToStr(MSec));

MiFecha := StrToDateTime('01/02/09 13:22:09,278');
DecodeDateTime(MiFecha,Year,Month,Day,Hour,Min,Sec,MSec);

ShowMessage('Año ' + IntToStr(Year));
ShowMessage('Mes ' + IntToStr(Month));
ShowMessage('Dia ' + IntToStr(Day));
ShowMessage('Hora ' + IntToStr(Hour));
ShowMessage('Minuto ' + IntToStr(Min));
ShowMessage('Segundo ' + IntToStr(Sec));
ShowMessage('Milisegundo ' + IntToStr(MSec));

Obtenemos el resultado

Funciones para crear fechas validas

Para crear, codificar fechas y horas en delphi tenemos la funciones EncodeDate, EncodeTime de las sysutils y la EncodeDateTime de la libreria DateUtils

function EncodeDate(Year, Month, Day: Word): TDateTime //SysUtils
function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime //SysUtils
function EncodeDateTime ( const Year, Month, Day, Hour, Min, Sec, MSec : Word ) : TDateTime; //DateUtils

Si entramos una fecha / hora incorrecta saltara una excepción de tipos EConvertError

El siguiente ejemplo creariamos una fecha 30/05/2009 la hora: 10:34

uses DateUtils;

var
MiData: TDate;
MiHora: TTime;
MiFecha: TDateTime;
begin

MiData := EncodeDate(2009,05,30);  //30 de mayo del 2009
MiHora := EncodeTime(10,35,0,500); // 10:35 0 segundos y 500 milisegundos
MiFecha := EncodeDateTime(2009,05,30,10,35,10,999);

end;

Ejemplo para tratar la excepcion EconvertError, en caso que el usuario entre una fecha incorrecta

Try
MiData := EncodeDate(2009,02,30);  //30 de febrero del 2009 *no existe
Except
on EConvertError do ShowMessage('entre una fecha valida porfavor');
end; //fin de excepcion

Para declarar una función lo hacemos con la sentencia function, única diferencia del procedure, es que deberemos decir que tipo de valor devuelve la función

function MiFuncion: boolean;

ejemplo 1

function SumarDosNumeros(numero1,numero2:integer):integer;
begin
SumarDosNumeros := numero1+numero2;
end;

Para hacer que la función devuelve la operación de sumar dos valores, tenemos dos formas para hacerlo, una es poner el nombre de la función y asignar con := el valor que devuelve cuando llegue a end;

la otra manera es asignar Result := numero1+numero2;

Nota: la función puede devolver diferentes resultados, dependerá del ultimo valor asignado a Result o al nombre de la función.
Y como los procedimientos si queremos definir dos o mas parámetros del mismo tipo lo hacemos con el delimitador , si quisieramos poner otro parámetro distinto tipo lo deberíamos separar con ; “;numero3:float” function MostrarSujeto(nombre,edad:string;peso:float);

la llamada:

Las funciones como se ha dicho, para ir bien, deben devolver un resultado, éxito, error, resultado etc…
por eso cuando llamamos una función tenemos que asignarle a una variable, también puede ser llamada en los parámetros de un procedimiento, o de otra función etc…

showmessage(’suma = ‘ +inttostr(SumarDosNumeros(3,7)));

en este caso el resultado de SumarDosNumeros le ponemos en la función ShowMessage, pero antes convertimos el resultado a string

Cuando utilizar un procedimiento y una función?

Utilizaremos procedimientos para hacer tareas repetidas, que no delvuelve control de finalización

ejemplo 1

procedure MiProcedimiento;
begin
showmessage(‘hola mundo’);
end;

para llamar el procedimiento, solo debemos escribir MiProcedimiento;

pero ojo, antes de llamar el procedimiento asegura-te que el código del procedimiento este antes de llamarlo

implementation
{$R *.dfm}

procedure MiProcedimiento;
begin
showmessage(‘hola mundo’);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
MiProcedimiento(‘hola mundo’);
end;

ejemplo 2

llamar el procedimiento con un parametro

procedure MiProcedimiento(texto:string);
begin
showmessage(‘hola mundo, ‘ + texto);
end;

y la llamada seria
MiProcedimiento(‘easy code’);

El resultado nos saldría un cuadro de texto con el texto hola mundo, easy code

procedure MiProcedimiento(texto:string);

Nota: para definir dos parámetros del mismo tipo lo hacemos con el delimitador , si quisieramos poner otro parametro que no fuese integer lo deberíamos poner con ; el procedimiento anterior quedaria así procedure MiProcedimiento(texto,mensaje:string;valor:integer) ;