在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
目的: 1. 窗口不在任务栏显示。 2. 窗口不显示在Alt+Tab的切换列表中。 3. 在任务管理器的应用程序列表中不显示。 示例: type TAppWndBrowser = class( TForm ) published procedure CreateParams( var Params: TCreateParams ); override; procedure WndProc(var Message: TMessage); override; end; implementation {$R *.dfm} { TAppWndBrowser } procedure TAppWndBrowser.CreateParams( var Params: TCreateParams ); begin inherited CreateParams( Params ); Params.ExStyle := WS_EX_TOOLWINDOW; end; procedure TAppWndBrowser.WndProc(var Message: TMessage); begin inherited WndProc(Message); if (not Application.MainFormOnTaskBar) and (Message.Msg = WM_SHOWWINDOW) then begin ShowWindow(Application.Handle, SW_HIDE); SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); end; end;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论