Fenster aus ALT+TAB-Liste entfernen

[Z4ppy]

ES GEHT
Danke, danke, danke, danke

Hier nochmal der komplette Code fürs Removen aus Taskleiste & Fensterliste:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var WindowLong: Integer;
begin
  SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
  bordericons := bordericons - [biminimize];
  WindowLong := GetWindowLong(Handle, GWL_EXSTYLE);
  SetWindowLong(Handle, GWL_EXSTYLE, WindowLong or WS_EX_TOOLWINDOW);
end;

Vermutlich könnte man das noch etwas vereinfachen, aber so gehts zumindest

MfG Z4ppy

€dit: So, nochma ne vereinfachte Version:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
  SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
end;

€dit2: Die letzte Version setzt vorraus, dass biMinimize False ist