Program i taskbar

Ok, jeg fandt faktisk selv ud af noget, men har stadig brug for en hjælpende hånd.

procedure Taskbar;
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;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if Checkbox1.checked = true
  then begin Taskbar
  end
  else if Checkbox1.Checked = false
    then begin ;
  end;
end;
end.

Hvad skal jeg skrive ved det sidste 'then begin', for at den disabler proceduren Taskbar? :)

Prøv med:

procedure ShowInTaskbar;
begin
  SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) and not WS_EX_TOOLWINDOW);
  ShowWindow(Application.Handle, SW_SHOW) ;
end;

procedure Taskbar;
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;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if Checkbox1.checked = true then
    Taskbar
  else if Checkbox1.Checked = false then
    ShowInTaskbar;
  end;
end;

(ikke testet)

Det virker vist ikke =)

du skal bare gemme den gamle fra SetWindowLong når du fjerner den

var
  oldwl : Longint;

procedure ShowInTaskbar(Show : Boolean);
const
  SW : array[Boolean] of Cardinal = (SW_HIDE, SW_SHOW);
begin
  ShowWindow(Application.Handle, SW[Show]);

  if Show then
    SetWindowLong(Application.Handle, GWL_EXSTYLE, oldwl)
  else
    oldwl := SetWindowLong(Application.Handle, GWL_EXSTYLE,
      getWindowLong(Application.Handle, GWL_EXSTYLE) or
      WS_EX_TOOLWINDOW);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowInTaskbar(Checkbox1.Checked);
end;

Hmm ok. Det virker da!

Men kan mit eget eksempel bruges? Altså hvad kan/skal jeg skrive efter det sidste 'then begin', for at den disabler min procedure 'Taskbar'?

forstår ikke rigtig hvad du mener med at disable procedure 'Taskbar'???

Fandt selv ud af det, så lukker tråden

Lukker