Comment faire pour masquer une application Delphi.
programme de Projet1
& nbsp & nbsp Formes,
& nbsp & nbsp Unit1 dans ' Unit1.pas' {Form1},
& nbsp & nbsp Windows
{$R *.RES}
//déclaration d'une variable d'obtenir les informations de la fenêtre
var
& nbsp & nbsp ExtendedStyle : Integer
begin
& nbsp & nbsp Application.Initialiser
& nbsp & nbsp //récupérer l'Étendue des Styles de l'Application, par le passage de sa
& nbsp & nbsp //poignée pour GetWindowLong
& nbsp & nbsp ExtendedStyle := GetWindowLong(Application.Poignée, GWL_EXSTYLE)
& nbsp & nbsp //Maintenant, définissez l'Étendue de Style en faisant un peu de masquage de l'opération.
& nbsp & nbsp //OU dans le WS_EX_TOOLWINDOW peu, et les ET les WS_EXAPPWINDOW bits
& nbsp & nbsp //Il convertit efficacement l'application à partir d'une Application Windows à un
& nbsp & nbsp //Fenêtre de l'Outil.
& nbsp & nbsp SetWindowLong(Application.Poignée, GWL_EXSTYLE, ExtendedStyle OU WS_EX_TOOLWINDOW
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp & nbsp & nbsp ET PAS WS_EX_APPWINDOW)
& nbsp & nbsp Application.CreateForm(TForm1, Form1)
& nbsp & nbsp Application.Run
à la fin.
Masquer les applications
Masquer les applications : Plusieurs milliers de conseils pour vous faciliter la vie.
Comment faire pour masquer une application Delphi.
programme de Projet1
& nbsp & nbsp Formes,
& nbsp & nbsp Unit1 dans ' Unit1.pas' {Form1},
& nbsp & nbsp Windows
{$R *.RES}
//declaration d'une variable d'obtenir les informations de la fenetre
var
& nbsp & nbsp ExtendedStyle : Integer
begin
& nbsp & nbsp Application.Initialiser
& nbsp & nbsp //recuperer l'Etendue des Styles de l'Application, par le passage de sa
& nbsp & nbsp //poignee pour GetWindowLong
& nbsp & nbsp ExtendedStyle := GetWindowLong(Application.Poignee, GWL_EXSTYLE)
& nbsp & nbsp //Maintenant, definissez l'Etendue de Style en faisant un peu de masquage de l'operation.
& nbsp & nbsp //OU dans le WS_EX_TOOLWINDOW peu, et les ET les WS_EXAPPWINDOW bits
& nbsp & nbsp //Il convertit efficacement l'application a partir d'une Application Windows a un
& nbsp & nbsp //Fenetre de l'Outil.
& nbsp & nbsp SetWindowLong(Application.Poignee, GWL_EXSTYLE, ExtendedStyle OU WS_EX_TOOLWINDOW
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp & nbsp & nbsp ET PAS WS_EX_APPWINDOW)
& nbsp & nbsp Application.CreateForm(TForm1, Form1)
& nbsp & nbsp Application.Run
a la fin.
