Delphi - 無邊無狀態欄窗口

這個東西和語言無關的，只是簡單的通過SetWindowLongPtr來設置窗口樣式。

下面以Delphi XE為例

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樣式即可去掉程序的任務欄。