Newsgrupos.com  

Retroceder   Newsgrupos.com > Forum > Newsgroup es.comp.lenguajes.* Foro > Newsgroup es.comp.lenguajes.delphi
Registrarse Preguntas Frecuentes Lista de Foreros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos




Respuesta
 
LinkBack Herramientas Desplegado
  #1 (permalink)  
Antiguo 09-11-2004, 10:19:14
sirius
 
Mensajes: n/a
Predeterminado Como hacer una aplicación sin ningún FORMULARIO VISIBLE ???


Hola grupo !!!

Necesito saber como hacer que no se muestre ningún formulario al crear una
aplicación que tiene un solo formulario, e instala un icono en la barra de
tareas, el cual tiene un menú para interactuar con la aplicación.

Gracias de antemano !!!


Responder Con Cita
Alt Today
Advertising
Google Adsense
 
This advertising will not be shown
in this way to registered members.
Register your free account today
and become a member on
Newsgrupos.com
Standard Sponsored Links

  #2 (permalink)  
Antiguo 09-11-2004, 10:44:25
Herman Shiraly Camargo Bustos
 
Mensajes: n/a
Predeterminado Re: Como hacer una aplicación sin ningún FORMULARIO VISIBLE ???

1) Primer paso colocar la propiedad Visible del formulario en Flase.

2) Declarar las siguientes constantes:

Const
//Identificador de Icono
ICONO: Integer = 1;
MENSAJE = WM_USER + 100;
3) Declarar los siguientes Metodos para el formulario
procedure ColgarIcono;
procedure IconosTimer(Sender: TObject);

4) Declarar una variable y procedure
private
Informacion : TNotifyIconData;
Procedure IconClicked( Var Msg:TMessage); Message MENSAJE;
Procedure OcultoVentana(Sender: TObject);

5) Acontinuación te mostrare los diferentes procesos que debes utilizar
//Al crear el formulario
procedure TfmMain.FormCreate(Sender: TObject);
begin
ColgarIcono;
OcultoVentana(Nil);
Application.OnMinimize := OcultoVentana;
end;

//Activa el icono en la barra de tarea
procedure TfmMain.ColgarIcono;
begin
//Muestro el Icono de Femauto en la barra
With Informacion do
Begin
cbSize := SizeOf(Informacion);
Wnd := Handle; // Ventana a la que se
enviarán los mensajes
uID := ICONO;
uFlags := NIF_ICON Or NIF_MESSAGE Or NIF_TIP;
uCallbackMessage := MENSAJE;
hIcon := Application.Icon.Handle;
szTip := 'Comunicación de display';
end;
Shell_NotifyIcon(NIM_ADD, ***Informacion);
end;

//Evento al hacer click en el icono de la barra
Procedure TfmMain.IconClicked(Var Msg:TMessage);
begin
if (Msg.lParam = WM_LBUTTONDOWN) then
begin
Application.Restore;
SetForegroundWindow(Handle);
WindowState := wsNormal;
end
else inherited;
end;

//Destruimos el icono de la barra
procedure TfmMain.FormDestroy(Sender: TObject);
begin
Shell_NotifyIcon(NIM_DELETE, ***Informacion);
end;

//Ocultamos el formulario al minimizar
Procedure TfmMain.OcultoVentana(Sender: TObject);
Begin
ShowWindow(Application.handle,SW_HIDE);
end;


Responder Con Cita
  #3 (permalink)  
Antiguo 09-11-2004, 10:44:25
Herman Shiraly Camargo Bustos
 
Mensajes: n/a
Predeterminado Re: Como hacer una aplicación sin ningún FORMULARIO VISIBLE ???

1) Primer paso colocar la propiedad Visible del formulario en Flase.

2) Declarar las siguientes constantes:

Const
//Identificador de Icono
ICONO: Integer = 1;
MENSAJE = WM_USER + 100;
3) Declarar los siguientes Metodos para el formulario
procedure ColgarIcono;
procedure IconosTimer(Sender: TObject);

4) Declarar una variable y procedure
private
Informacion : TNotifyIconData;
Procedure IconClicked( Var Msg:TMessage); Message MENSAJE;
Procedure OcultoVentana(Sender: TObject);

5) Acontinuación te mostrare los diferentes procesos que debes utilizar
//Al crear el formulario
procedure TfmMain.FormCreate(Sender: TObject);
begin
ColgarIcono;
OcultoVentana(Nil);
Application.OnMinimize := OcultoVentana;
end;

//Activa el icono en la barra de tarea
procedure TfmMain.ColgarIcono;
begin
//Muestro el Icono de Femauto en la barra
With Informacion do
Begin
cbSize := SizeOf(Informacion);
Wnd := Handle; // Ventana a la que se
enviarán los mensajes
uID := ICONO;
uFlags := NIF_ICON Or NIF_MESSAGE Or NIF_TIP;
uCallbackMessage := MENSAJE;
hIcon := Application.Icon.Handle;
szTip := 'Comunicación de display';
end;
Shell_NotifyIcon(NIM_ADD, ***Informacion);
end;

//Evento al hacer click en el icono de la barra
Procedure TfmMain.IconClicked(Var Msg:TMessage);
begin
if (Msg.lParam = WM_LBUTTONDOWN) then
begin
Application.Restore;
SetForegroundWindow(Handle);
WindowState := wsNormal;
end
else inherited;
end;

//Destruimos el icono de la barra
procedure TfmMain.FormDestroy(Sender: TObject);
begin
Shell_NotifyIcon(NIM_DELETE, ***Informacion);
end;

//Ocultamos el formulario al minimizar
Procedure TfmMain.OcultoVentana(Sender: TObject);
Begin
ShowWindow(Application.handle,SW_HIDE);
end;


Responder Con Cita
  #4 (permalink)  
Antiguo 09-11-2004, 10:44:25
Herman Shiraly Camargo Bustos
 
Mensajes: n/a
Predeterminado Re: Como hacer una aplicación sin ningún FORMULARIO VISIBLE ???

1) Primer paso colocar la propiedad Visible del formulario en Flase.

2) Declarar las siguientes constantes:

Const
//Identificador de Icono
ICONO: Integer = 1;
MENSAJE = WM_USER + 100;
3) Declarar los siguientes Metodos para el formulario
procedure ColgarIcono;
procedure IconosTimer(Sender: TObject);

4) Declarar una variable y procedure
private
Informacion : TNotifyIconData;
Procedure IconClicked( Var Msg:TMessage); Message MENSAJE;
Procedure OcultoVentana(Sender: TObject);

5) Acontinuación te mostrare los diferentes procesos que debes utilizar
//Al crear el formulario
procedure TfmMain.FormCreate(Sender: TObject);
begin
ColgarIcono;
OcultoVentana(Nil);
Application.OnMinimize := OcultoVentana;
end;

//Activa el icono en la barra de tarea
procedure TfmMain.ColgarIcono;
begin
//Muestro el Icono de Femauto en la barra
With Informacion do
Begin
cbSize := SizeOf(Informacion);
Wnd := Handle; // Ventana a la que se
enviarán los mensajes
uID := ICONO;
uFlags := NIF_ICON Or NIF_MESSAGE Or NIF_TIP;
uCallbackMessage := MENSAJE;
hIcon := Application.Icon.Handle;
szTip := 'Comunicación de display';
end;
Shell_NotifyIcon(NIM_ADD, ***Informacion);
end;

//Evento al hacer click en el icono de la barra
Procedure TfmMain.IconClicked(Var Msg:TMessage);
begin
if (Msg.lParam = WM_LBUTTONDOWN) then
begin
Application.Restore;
SetForegroundWindow(Handle);
WindowState := wsNormal;
end
else inherited;
end;

//Destruimos el icono de la barra
procedure TfmMain.FormDestroy(Sender: TObject);
begin
Shell_NotifyIcon(NIM_DELETE, ***Informacion);
end;

//Ocultamos el formulario al minimizar
Procedure TfmMain.OcultoVentana(Sender: TObject);
Begin
ShowWindow(Application.handle,SW_HIDE);
end;


Responder Con Cita
  #5 (permalink)  
Antiguo 09-11-2004, 10:44:25
Herman Shiraly Camargo Bustos
 
Mensajes: n/a
Predeterminado Re: Como hacer una aplicación sin ningún FORMULARIO VISIBLE ???

1) Primer paso colocar la propiedad Visible del formulario en Flase.

2) Declarar las siguientes constantes:

Const
//Identificador de Icono
ICONO: Integer = 1;
MENSAJE = WM_USER + 100;
3) Declarar los siguientes Metodos para el formulario
procedure ColgarIcono;
procedure IconosTimer(Sender: TObject);

4) Declarar una variable y procedure
private
Informacion : TNotifyIconData;
Procedure IconClicked( Var Msg:TMessage); Message MENSAJE;
Procedure OcultoVentana(Sender: TObject);

5) Acontinuación te mostrare los diferentes procesos que debes utilizar
//Al crear el formulario
procedure TfmMain.FormCreate(Sender: TObject);
begin
ColgarIcono;
OcultoVentana(Nil);
Application.OnMinimize := OcultoVentana;
end;

//Activa el icono en la barra de tarea
procedure TfmMain.ColgarIcono;
begin
//Muestro el Icono de Femauto en la barra
With Informacion do
Begin
cbSize := SizeOf(Informacion);
Wnd := Handle; // Ventana a la que se
enviarán los mensajes
uID := ICONO;
uFlags := NIF_ICON Or NIF_MESSAGE Or NIF_TIP;
uCallbackMessage := MENSAJE;
hIcon := Application.Icon.Handle;
szTip := 'Comunicación de display';
end;
Shell_NotifyIcon(NIM_ADD, ***Informacion);
end;

//Evento al hacer click en el icono de la barra
Procedure TfmMain.IconClicked(Var Msg:TMessage);
begin
if (Msg.lParam = WM_LBUTTONDOWN) then
begin
Application.Restore;
SetForegroundWindow(Handle);
WindowState := wsNormal;
end
else inherited;
end;

//Destruimos el icono de la barra
procedure TfmMain.FormDestroy(Sender: TObject);
begin
Shell_NotifyIcon(NIM_DELETE, ***Informacion);
end;

//Ocultamos el formulario al minimizar
Procedure TfmMain.OcultoVentana(Sender: TObject);
Begin
ShowWindow(Application.handle,SW_HIDE);
end;


Responder Con Cita
  #6 (permalink)  
Antiguo 09-11-2004, 10:44:25
Herman Shiraly Camargo Bustos
 
Mensajes: n/a
Predeterminado Re: Como hacer una aplicación sin ningún FORMULARIO VISIBLE ???

1) Primer paso colocar la propiedad Visible del formulario en Flase.

2) Declarar las siguientes constantes:

Const
//Identificador de Icono
ICONO: Integer = 1;
MENSAJE = WM_USER + 100;
3) Declarar los siguientes Metodos para el formulario
procedure ColgarIcono;
procedure IconosTimer(Sender: TObject);

4) Declarar una variable y procedure
private
Informacion : TNotifyIconData;
Procedure IconClicked( Var Msg:TMessage); Message MENSAJE;
Procedure OcultoVentana(Sender: TObject);

5) Acontinuación te mostrare los diferentes procesos que debes utilizar
//Al crear el formulario
procedure TfmMain.FormCreate(Sender: TObject);
begin
ColgarIcono;
OcultoVentana(Nil);
Application.OnMinimize := OcultoVentana;
end;

//Activa el icono en la barra de tarea
procedure TfmMain.ColgarIcono;
begin
//Muestro el Icono de Femauto en la barra
With Informacion do
Begin
cbSize := SizeOf(Informacion);
Wnd := Handle; // Ventana a la que se
enviarán los mensajes
uID := ICONO;
uFlags := NIF_ICON Or NIF_MESSAGE Or NIF_TIP;
uCallbackMessage := MENSAJE;
hIcon := Application.Icon.Handle;
szTip := 'Comunicación de display';
end;
Shell_NotifyIcon(NIM_ADD, ***Informacion);
end;

//Evento al hacer click en el icono de la barra
Procedure TfmMain.IconClicked(Var Msg:TMessage);
begin
if (Msg.lParam = WM_LBUTTONDOWN) then
begin
Application.Restore;
SetForegroundWindow(Handle);
WindowState := wsNormal;
end
else inherited;
end;

//Destruimos el icono de la barra
procedure TfmMain.FormDestroy(Sender: TObject);
begin
Shell_NotifyIcon(NIM_DELETE, ***Informacion);
end;

//Ocultamos el formulario al minimizar
Procedure TfmMain.OcultoVentana(Sender: TObject);
Begin
ShowWindow(Application.handle,SW_HIDE);
end;


Responder Con Cita
  #7 (permalink)  
Antiguo 09-11-2004, 12:28:42
sirius
 
Mensajes: n/a
Predeterminado Re: Como hacer una aplicación sin ningún FORMULARIO VISIBLE ???

Muchas gracias Herman.
Lo pruebo y contesto al grupo.

"Herman Shiraly Camargo Bustos" <shiraly***terra.es> escribió en el mensaje
news:dc1kd.3538606$A6.11046783***telenews.teleline.e s...
> 1) Primer paso colocar la propiedad Visible del formulario en Flase.
>
> 2) Declarar las siguientes constantes:
>
> Const
> //Identificador de Icono
> ICONO: Integer = 1;
> MENSAJE = WM_USER + 100;
> 3) Declarar los siguientes Metodos para el formulario
> procedure ColgarIcono;
> procedure IconosTimer(Sender: TObject);
>
> 4) Declarar una variable y procedure
> private
> Informacion : TNotifyIconData;
> Procedure IconClicked( Var Msg:TMessage); Message MENSAJE;
> Procedure OcultoVentana(Sender: TObject);
>
> 5) Acontinuación te mostrare los diferentes procesos que debes utilizar
> //Al crear el formulario
> procedure TfmMain.FormCreate(Sender: TObject);
> begin
> ColgarIcono;
> OcultoVentana(Nil);
> Application.OnMinimize := OcultoVentana;
> end;
>
> //Activa el icono en la barra de tarea
> procedure TfmMain.ColgarIcono;
> begin
> //Muestro el Icono de Femauto en la barra
> With Informacion do
> Begin
> cbSize := SizeOf(Informacion);
> Wnd := Handle; // Ventana a la que

se
> enviarán los mensajes
> uID := ICONO;
> uFlags := NIF_ICON Or NIF_MESSAGE Or

NIF_TIP;
> uCallbackMessage := MENSAJE;
> hIcon := Application.Icon.Handle;
> szTip := 'Comunicación de display';
> end;
> Shell_NotifyIcon(NIM_ADD, ***Informacion);
> end;
>
> //Evento al hacer click en el icono de la barra
> Procedure TfmMain.IconClicked(Var Msg:TMessage);
> begin
> if (Msg.lParam = WM_LBUTTONDOWN) then
> begin
> Application.Restore;
> SetForegroundWindow(Handle);
> WindowState := wsNormal;
> end
> else inherited;
> end;
>
> //Destruimos el icono de la barra
> procedure TfmMain.FormDestroy(Sender: TObject);
> begin
> Shell_NotifyIcon(NIM_DELETE, ***Informacion);
> end;
>
> //Ocultamos el formulario al minimizar
> Procedure TfmMain.OcultoVentana(Sender: TObject);
> Begin
> ShowWindow(Application.handle,SW_HIDE);
> end;
>
>



Responder Con Cita
  #8 (permalink)  
Antiguo 09-11-2004, 12:28:42
sirius
 
Mensajes: n/a
Predeterminado Re: Como hacer una aplicación sin ningún FORMULARIO VISIBLE ???

Muchas gracias Herman.
Lo pruebo y contesto al grupo.

"Herman Shiraly Camargo Bustos" <shiraly***terra.es> escribió en el mensaje
news:dc1kd.3538606$A6.11046783***telenews.teleline.e s...
> 1) Primer paso colocar la propiedad Visible del formulario en Flase.
>
> 2) Declarar las siguientes constantes:
>
> Const
> //Identificador de Icono
> ICONO: Integer = 1;
> MENSAJE = WM_USER + 100;
> 3) Declarar los siguientes Metodos para el formulario
> procedure ColgarIcono;
> procedure IconosTimer(Sender: TObject);
>
> 4) Declarar una variable y procedure
> private
> Informacion : TNotifyIconData;
> Procedure IconClicked( Var Msg:TMessage); Message MENSAJE;
> Procedure OcultoVentana(Sender: TObject);
>
> 5) Acontinuación te mostrare los diferentes procesos que debes utilizar
> //Al crear el formulario
> procedure TfmMain.FormCreate(Sender: TObject);
> begin
> ColgarIcono;
> OcultoVentana(Nil);
> Application.OnMinimize := OcultoVentana;
> end;
>
> //Activa el icono en la barra de tarea
> procedure TfmMain.ColgarIcono;
> begin
> //Muestro el Icono de Femauto en la barra
> With Informacion do
> Begin
> cbSize := SizeOf(Informacion);
> Wnd := Handle; // Ventana a la que

se
> enviarán los mensajes
> uID := ICONO;
> uFlags := NIF_ICON Or NIF_MESSAGE Or

NIF_TIP;
> uCallbackMessage := MENSAJE;
> hIcon := Application.Icon.Handle;
> szTip := 'Comunicación de display';
> end;
> Shell_NotifyIcon(NIM_ADD, ***Informacion);
> end;
>
> //Evento al hacer click en el icono de la barra
> Procedure TfmMain.IconClicked(Var Msg:TMessage);
> begin
> if (Msg.lParam = WM_LBUTTONDOWN) then
> begin
> Application.Restore;
> SetForegroundWindow(Handle);
> WindowState := wsNormal;
> end
> else inherited;
> end;
>
> //Destruimos el icono de la barra
> procedure TfmMain.FormDestroy(Sender: TObject);
> begin
> Shell_NotifyIcon(NIM_DELETE, ***Informacion);
> end;
>
> //Ocultamos el formulario al minimizar
> Procedure TfmMain.OcultoVentana(Sender: TObject);
> Begin
> ShowWindow(Application.handle,SW_HIDE);
> end;
>
>



Responder Con Cita
  #9 (permalink)  
Antiguo 09-11-2004, 12:28:42
sirius
 
Mensajes: n/a
Predeterminado Re: Como hacer una aplicación sin ningún FORMULARIO VISIBLE ???

Muchas gracias Herman.
Lo pruebo y contesto al grupo.

"Herman Shiraly Camargo Bustos" <shiraly***terra.es> escribió en el mensaje
news:dc1kd.3538606$A6.11046783***telenews.teleline.e s...
> 1) Primer paso colocar la propiedad Visible del formulario en Flase.
>
> 2) Declarar las siguientes constantes:
>
> Const
> //Identificador de Icono
> ICONO: Integer = 1;
> MENSAJE = WM_USER + 100;
> 3) Declarar los siguientes Metodos para el formulario
> procedure ColgarIcono;
> procedure IconosTimer(Sender: TObject);
>
> 4) Declarar una variable y procedure
> private
> Informacion : TNotifyIconData;
> Procedure IconClicked( Var Msg:TMessage); Message MENSAJE;
> Procedure OcultoVentana(Sender: TObject);
>
> 5) Acontinuación te mostrare los diferentes procesos que debes utilizar
> //Al crear el formulario
> procedure TfmMain.FormCreate(Sender: TObject);
> begin
> ColgarIcono;
> OcultoVentana(Nil);
> Application.OnMinimize := OcultoVentana;
> end;
>
> //Activa el icono en la barra de tarea
> procedure TfmMain.ColgarIcono;
> begin
> //Muestro el Icono de Femauto en la barra
> With Informacion do
> Begin
> cbSize := SizeOf(Informacion);
> Wnd := Handle; // Ventana a la que

se
> enviarán los mensajes
> uID := ICONO;
> uFlags := NIF_ICON Or NIF_MESSAGE Or

NIF_TIP;
> uCallbackMessage := MENSAJE;
> hIcon := Application.Icon.Handle;
> szTip := 'Comunicación de display';
> end;
> Shell_NotifyIcon(NIM_ADD, ***Informacion);
> end;
>
> //Evento al hacer click en el icono de la barra
> Procedure TfmMain.IconClicked(Var Msg:TMessage);
> begin
> if (Msg.lParam = WM_LBUTTONDOWN) then
> begin
> Application.Restore;
> SetForegroundWindow(Handle);
> WindowState := wsNormal;
> end
> else inherited;
> end;
>
> //Destruimos el icono de la barra
> procedure TfmMain.FormDestroy(Sender: TObject);
> begin
> Shell_NotifyIcon(NIM_DELETE, ***Informacion);
> end;
>
> //Ocultamos el formulario al minimizar
> Procedure TfmMain.OcultoVentana(Sender: TObject);
> Begin
> ShowWindow(Application.handle,SW_HIDE);
> end;
>
>



Responder Con Cita
  #10 (permalink)  
Antiguo 09-11-2004, 12:28:42
sirius
 
Mensajes: n/a
Predeterminado Re: Como hacer una aplicación sin ningún FORMULARIO VISIBLE ???

Muchas gracias Herman.
Lo pruebo y contesto al grupo.

"Herman Shiraly Camargo Bustos" <shiraly***terra.es> escribió en el mensaje
news:dc1kd.3538606$A6.11046783***telenews.teleline.e s...
> 1) Primer paso colocar la propiedad Visible del formulario en Flase.
>
> 2) Declarar las siguientes constantes:
>
> Const
> //Identificador de Icono
> ICONO: Integer = 1;
> MENSAJE = WM_USER + 100;
> 3) Declarar los siguientes Metodos para el formulario
> procedure ColgarIcono;
> procedure IconosTimer(Sender: TObject);
>
> 4) Declarar una variable y procedure
> private
> Informacion : TNotifyIconData;
> Procedure IconClicked( Var Msg:TMessage); Message MENSAJE;
> Procedure OcultoVentana(Sender: TObject);
>
> 5) Acontinuación te mostrare los diferentes procesos que debes utilizar
> //Al crear el formulario
> procedure TfmMain.FormCreate(Sender: TObject);
> begin
> ColgarIcono;
> OcultoVentana(Nil);
> Application.OnMinimize := OcultoVentana;
> end;
>
> //Activa el icono en la barra de tarea
> procedure TfmMain.ColgarIcono;
> begin
> //Muestro el Icono de Femauto en la barra
> With Informacion do
> Begin
> cbSize := SizeOf(Informacion);
> Wnd := Handle; // Ventana a la que

se
> enviarán los mensajes
> uID := ICONO;
> uFlags := NIF_ICON Or NIF_MESSAGE Or

NIF_TIP;
> uCallbackMessage := MENSAJE;
> hIcon := Application.Icon.Handle;
> szTip := 'Comunicación de display';
> end;
> Shell_NotifyIcon(NIM_ADD, ***Informacion);
> end;
>
> //Evento al hacer click en el icono de la barra
> Procedure TfmMain.IconClicked(Var Msg:TMessage);
> begin
> if (Msg.lParam = WM_LBUTTONDOWN) then
> begin
> Application.Restore;
> SetForegroundWindow(Handle);
> WindowState := wsNormal;
> end
> else inherited;
> end;
>
> //Destruimos el icono de la barra
> procedure TfmMain.FormDestroy(Sender: TObject);
> begin
> Shell_NotifyIcon(NIM_DELETE, ***Informacion);
> end;
>
> //Ocultamos el formulario al minimizar
> Procedure TfmMain.OcultoVentana(Sender: TObject);
> Begin
> ShowWindow(Application.handle,SW_HIDE);
> end;
>
>



Responder Con Cita
 
Respuesta


Herramientas
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado


Temas Similares
Tema Autor Foro Respuestas Último mensaje
Formulario Siempre Visible El Sueco Newsgroup microsoft.public.es.access 4 13-08-2008 12:45:01
¿Cómo hacer un formulario? oscar Newsgroup es.comp.infosistemas.www.paginas-web 24 24-10-2005 15:13:17
¿Cómo hacer un formulario? oscar Newsgroup es.comp.infosistemas.www.paginas-web 0 20-10-2005 22:31:08
Como hacer una aplicacion residente (como los antivirus) -- Juanjo -- Newsgroup microsoft.public.es.vs 14 23-10-2004 01:59:25
formulario se abre (del taskbar) al cerrar otra aplicacion ¿como? Alberto Trujillo Newsgroup es.comp.lenguajes.visual-basic 0 16-09-2004 14:02:52





Powered by: vBulletin, Versión 3.6.8
Derechos de Autor ©2000 - 2008, Jelsoft Enterprises Ltd.

LinkBacks Enabled by vBSEO 3.1.0 © 2007, Crawlability, Inc.