var
dwExStyle : DWORD;
begin
dwExStyle := GetWindowLong(Application.Handle, GWL_EXSTYLE);
dwExStyle := dwExStyle + WS_EX_TOOLWINDOW ;
SetWindowLong(Application.Handle, GWL_EXSTYLE, dwExStyle);
显示时用
SetWindowLong(Application.Handle, GWL_EXSTYLE, 256);
dwExStyle : DWORD;
begin
dwExStyle := GetWindowLong(Application.Handle, GWL_EXSTYLE);
dwExStyle := dwExStyle + WS_EX_TOOLWINDOW ;
SetWindowLong(Application.Handle, GWL_EXSTYLE, dwExStyle);
显示时用
SetWindowLong(Application.Handle, GWL_EXSTYLE, 256);