Verstecken von Anwendungen
So blenden Sie eine Delphi-Anwendung.
Programm 'Project1';
verwendet
Formen,
UNIT1 in 'Unit1.pas' {Form1},
Windows;
{$R *. RES}
Deklarieren Sie ein Var aktuelle Fenster-Informationen abrufen
var
ExtendedStyle: Integer;
beginnen
Application.Initialize;
Die erweiterte Stile der Anwendung, übergeben Sie beim Abrufen ihrer
Handle für GetWindowLong
ExtendedStyle: = GetWindowLong (Application.Handle, GWL_EXSTYLE);
Nun legen Sie den Extended-Stil auf diese Weise ein wenig Maskierung Betrieb.
ODER in den WS_EX_TOOLWINDOW Bit und und und das bisschen WS_EXAPPWINDOW
Konvertiert die Anwendung effektiv von einem App-Fenster zu einem
Toolfenster.
SetWindowLong (Application.Handle, GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW
UND NICHT WS_EX_APPWINDOW);
Application.CreateForm (TForm1, Form1);
Application.Run;
Ende.
Verstecken von Anwendungen
Verstecken von Anwendungen : Mehreren tausend Tipps, um Ihr Leben einfacher machen.
So blenden Sie eine Delphi-Anwendung.
Programm 'Project1';
verwendet
Formen,
UNIT1 in 'Unit1.pas' {Form1},
Windows;
{$R *. RES}
Deklarieren Sie ein Var aktuelle Fenster-Informationen abrufen
var
ExtendedStyle: Integer;
beginnen
Application.Initialize;
Die erweiterte Stile der Anwendung, übergeben Sie beim Abrufen ihrer
Handle für GetWindowLong
ExtendedStyle: = GetWindowLong (Application.Handle, GWL_EXSTYLE);
Nun legen Sie den Extended-Stil auf diese Weise ein wenig Maskierung Betrieb.
ODER in den WS_EX_TOOLWINDOW Bit und und und das bisschen WS_EXAPPWINDOW
Konvertiert die Anwendung effektiv von einem App-Fenster zu einem
Toolfenster.
SetWindowLong (Application.Handle, GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW
UND NICHT WS_EX_APPWINDOW);
Application.CreateForm (TForm1, Form1);
Application.Run;
Ende.
Verstecken von Anwendungen
By Wiezutun
Verstecken von Anwendungen : Mehreren tausend Tipps, um Ihr Leben einfacher machen.