无边无状态栏窗口（使用GetWindowLongPtr设置GWL_EXSTYLE）

通过SetWindowLongPtr来设置窗口样式

[delphi] view plain copy

 

 

1. var  
2.   NewStyle: Integer;  
3. begin  
4.   Application.Initialize;  
5.   Application.MainFormOnTaskbar := True;  
6.   Application.CreateForm(TMainForm, MainForm);  
7.   // WS_OVERLAPPED | WS_VISIBLE | WS_SYSMENU | WS_MINIMIZEBOX | WS_MAXIMIZEBOX | WS_CLIPCHILDREN | WS_CLIPSIBLINGS  
8.   // = $16030000  
9.   NewStyle := GetWindowLongPtr(MainForm.Handle, GWL_EXSTYLE) and ($16030000) or WS_EX_TOOLWINDOW;  
10.   SetWindowLongPtr(MainForm.Handle, GWL_EXSTYLE, NewStyle);  
11.   Application.Run;  
12. end.  

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

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

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

http://blog.csdn.net/aqtata/article/details/17523857