Wie kann die "Desktop anzeigen" Funktion umgehen

[ustra]

Hi,

hier ist er:

Delphi-Quellcode:

procedure TFTaskleiste.FormCreate(Sender: TObject);
var
  Result : Integer;
begin
  Data.cbSize := SizeOf(TAppBarData);
  Data.hWnd := FTaskleiste.Handle;
  Data.uEdge := ABE_TOP;
  Data.rc.Left := 0;
  Data.rc.Top := 0;
  Data.rc.Right := 200;
  Data.rc.Bottom := 60;
  result := SHAppBarMessage(ABM_NEW, Data);

  if Result = 0 then
  begin
    ShowMessage('AppBar konnte nicht registriert werden');
    exit;
  end;
  SHAppBarMessage(ABM_QUERYPOS, Data);
  Application.ProcessMessages;
  SHAppBarMessage(ABM_SETPOS, Data);
  Application.ProcessMessages;
  SHAppBarMessage(ABM_SETSTATE, Data);
  Application.ProcessMessages;
  MoveWindow(Data.hWnd, Data.rc.Left, Data.Rc.Top, GetSystemMetrics(SM_CXSCREEN), Data.rc.Bottom, true);
  Application.ProcessMessages;
end;


procedure TFTaskleiste.FormDestroy(Sender: TObject);
begin
  SHAppBarMessage(ABM_REMOVE, Data);
end;

Und wozu brauchst Du das?
Beste Grüße
Ulrich