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
