Cómo ocultar una aplicación Delphi.
programa de Project1
usos
& nbsp & nbsp Formas,
& nbsp & nbsp Unit1 en ' Unit1.pas' {Form1},
& nbsp & nbsp Windows
{$R *.RES}
//Declara un var para recuperar actual de la ventana de información.
var
& nbsp & nbsp ExtendedStyle : Integer
begin
& nbsp & nbsp Aplicación.Inicializar
& nbsp & nbsp //Obtener el Extendido Estilos de la Aplicación, pasando su
& nbsp & nbsp //identificador GetWindowLong
& nbsp & nbsp ExtendedStyle := GetWindowLong(de Aplicación.Manejar, GWL_EXSTYLE)
& nbsp & nbsp //Ahora, establecer el Estilo Extendido por hacer un poco de enmascaramiento de la operación.
& nbsp & nbsp //O en el WS_EX_TOOLWINDOW bits, y el WS_EXAPPWINDOW bits
& nbsp & nbsp //de Esta forma, convierte a la aplicación desde una Aplicación de Windows a un
& nbsp & nbsp //Ventana de la Herramienta.
& nbsp & nbsp SetWindowLong(de Aplicación.Manejar, GWL_EXSTYLE, ExtendedStyle O WS_EX_TOOLWINDOW
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Y NO WS_EX_APPWINDOW)
& nbsp & nbsp Aplicación.CreateForm(TForm1, Form1)
& nbsp & nbsp Aplicación.Ejecutar
final.
Ocultar aplicaciones
Ocultar aplicaciones : Multi-millones de consejos para hacer su vida mas facil.
Como ocultar una aplicacion Delphi.
programa de Project1
usos
& nbsp & nbsp Formas,
& nbsp & nbsp Unit1 en ' Unit1.pas' {Form1},
& nbsp & nbsp Windows
{$R *.RES}
//Declara un var para recuperar actual de la ventana de informacion.
var
& nbsp & nbsp ExtendedStyle : Integer
begin
& nbsp & nbsp Aplicacion.Inicializar
& nbsp & nbsp //Obtener el Extendido Estilos de la Aplicacion, pasando su
& nbsp & nbsp //identificador GetWindowLong
& nbsp & nbsp ExtendedStyle := GetWindowLong(de Aplicacion.Manejar, GWL_EXSTYLE)
& nbsp & nbsp //Ahora, establecer el Estilo Extendido por hacer un poco de enmascaramiento de la operacion.
& nbsp & nbsp //O en el WS_EX_TOOLWINDOW bits, y el WS_EXAPPWINDOW bits
& nbsp & nbsp //de Esta forma, convierte a la aplicacion desde una Aplicacion de Windows a un
& nbsp & nbsp //Ventana de la Herramienta.
& nbsp & nbsp SetWindowLong(de Aplicacion.Manejar, GWL_EXSTYLE, ExtendedStyle O WS_EX_TOOLWINDOW
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Y NO WS_EX_APPWINDOW)
& nbsp & nbsp Aplicacion.CreateForm(TForm1, Form1)
& nbsp & nbsp Aplicacion.Ejecutar
final.
