Delphiタスクバーにウィンドウは表示されません
2541 ワード
目的:
1.ウィンドウはタスクバーに表示されません.
2.ウィンドウはAlt+Tabの切り替えリストに表示されません.
3.タスクマネージャのアプリケーションリストには表示されません.
例:
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;