Versteckt Anwendungen

Wie man eine Delphi-Anwendung ausblenden.

Programm Projekt1;



Anwendungen

Formen,

Unit1 in 'Unit1.pas' {Form1}

Fenster;



{$ R * .RES}



// Deklarieren Sie eine var, um die Informationen des aktuellen Fensters abrufen

var

ExtendedStyle: Integer;



Start

Application.Initialize;



// Bekommen die erweiterte Anwendung Styles, vorbei sein

// Griff GetWindowLong

ExtendedStyle: = GetWindowLong (Application.Handle, GWL_EXSTYLE);



// Jetzt stellen Sie den erweiterten Stil, indem Sie ein wenig "Maskierung Betrieb.

// Oder mit WS_EX_TOOLWINDOW Bit und E-Bit WS_EXAPPWINDOW

// Dieser wandelt effektiv die Anwendung aus dem App für Windows

// Fenster-Tool.

SetWindowLong (Application.Handle, GWL_EXSTYLE, ExtendedStyle O WS_EX_TOOLWINDOW

UND NICHT WS_EX_APPWINDOW);

Application.CreateForm (TForm1, Form1);

Application.Run;

Ende.

(0)
(0)

Kommentare - 0

Keine Kommentare

Fügen Sie einen Kommentar

smile smile smile smile smile smile smile smile
smile smile smile smile smile smile smile smile
smile smile smile smile smile smile smile smile
smile smile smile smile
Zeichen übrig: 3000
captcha