[Help] Fenster aus Sysbar...

[lbccaleb]

Meinst du sowas??

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);
  ShowWindow(Application.Handle, SW_SHOW);
end;

[mr_emre_d]

ShowWindow ist überflüssig !

MfG

[lbccaleb]

Zitat von mr_emre_d:

ShowWindow ist überflüssig !

MfG

Ja, aber nicht wenn es zB auf druck eines Buttons erst ausgeblendet werden soll, dann ist ShowWindow von nöten

[mr_emre_d]

Mal ausprobieren

xD

EDIT:
OK. Haste recht

Delphi-Quellcode:

function HideFromToolbar( ApplicationHandle: Cardinal ): LongInt; assembler;
asm
  push  eax
  push  0
  push  eax
  call  ShowWindow
  pop   eax

  push  eax
  push  -20
  push  eax
  call  GetWindowLong
  or    eax,   128

  pop   edx
  push  eax
  push  GWL_EXSTYLE
  push  edx
  call  SetWindowLong

  push  5
  push  eax
  call  ShowWindow
end;

MfG