【Delphi】无边无状态栏窗口

通过SetWindowLongPtr来设置窗口样式



var

 NewStyle: Integer;

begin

 Application.Initialize;

 Application.MainFormOnTaskbar := True;

 Application.CreateForm(TMainForm, MainForm);

 // WS_OVERLAPPED | WS_VISIBLE | WS_SYSMENU | WS_MINIMIZEBOX | WS_MAXIMIZEBOX | WS_CLIPCHILDREN | WS_CLIPSIBLINGS

 // = $16030000

 NewStyle := GetWindowLongPtr(MainForm.Handle, GWL_EXSTYLE) and ($16030000) or WS_EX_TOOLWINDOW;

 SetWindowLongPtr(MainForm.Handle, GWL_EXSTYLE, NewStyle);

 Application.Run;

end.


Application.MainFormOnTaskbar要设置为True,只有这样,主窗口才会显示在任务栏,接着下面的代码才会有意义。


$16030000是一些窗口样式的组合值,上面只是为了简化书写才写成数字,但注释里有这些样式的常量值。


接着设置WS_EX_TOOLWINDOW样式即可去掉程序的任务栏。



联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678