Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
GetWindowLong(Application.Handle, GWL_EXSTYLE) or
WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
ShowWindow(Application.Handle, SW_SHOW);
end;
Das funktioniert bei mir. Kein kurzes Aufblitzen: Bei onShow ist es wohl schon zu spät (was aber von der CPU abhängt, wegen den Ein-/Ausblendeffekten).