Fenster aus ALT+TAB-Liste entfernen

[Z4ppy]

Ich hab mir ein kleines Programm gecodet, das aber weder in Taskleiste, noch in der Fensterliste (ALT+TAB) angezeigt werden soll... Die Taskleiste hab ich bereits geschafft, bei der Fensterliste hab ich allerdings ein Prob...
Wenn ich Form1.BorderStyle = bsToolWindow; setze, geht folgender Code:

Delphi-Quellcode:

setwindowlong(application.handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
bordericons := bordericons - [biminimize];

Allerdings soll mein Fenster bsNone sein... Ich habe nun verschiedene Lösungen ausprobiert, aber alle haben nicht funktioniert :(

Hat mir jemand ne andere Lösung?

MfG Z4ppy

€dit: Hab nun noch das gefunden, aber leider hat auch das mit dem Übermalen net geklappt :(

[Z4ppy]

Sorry für den Doublepost, aber ich brauch ne ganz schnelle Antwort, denn ich bin ab morgen früh in den Ferien und will das vorher noch fertig machen ;)
Hat wer ne Idee?

MfG Z4ppy

€dit: Hab nun noch von dieser Seite folgenden Code probiert:

Delphi-Quellcode:

const
b1: byte = 50;

//und dann im OnCreate:
SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @b1, 0);

Leider auch ohne Erfolg :( Idea?

[TurboMartin]

Probiere es doch mal damit:

Delphi-Quellcode:

procedure frmName.HideAT();
var WindowLong: Integer;
begin
   WindowLong := GetWindowLong(Handle, GWL_EXSTYLE)
   SetWindowLong(this.Handle, GWL_EXSTYLE, WindowLong | WS_EX_TOOLWINDOW);
end;

[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 :D

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 ;)

[TurboMartin]

Stimmt... Hab ch auch nur aus C# übernommen :oops:

[Z4ppy]

Hab oben mal edited, es geht... Ich hatte wohl irgendwas falsch gemacht :D

MfG Z4ppy