Der Taskleisteneintrag eines fremden Programms entfernen

[Hagbart]

Hallo,

Man kann ja bei seinem Programm den Eintrag aus er Taskleiste entfernen:

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;

Wie kann ich das bei einer fremden Anwendung machen, z.B. den Eintrag vom WindowsMedia Player oder Word?


mfg
Hagbart

[Balu der Bär]

Du musst das Handle der betreffenden Anwendung herausfinden und dann übergibst du nicht Application.Handle sondern das Handle der anderen Anwendung (imho).

[Hagbart]

Ohh man, funktioniert perfekt, war zu einfach um selbst draufzukommen

Vielen Dank!!!

[ghost1601]

Mal ne Frage zu der Taskleiste, kann man auch eine Anwendung auf den Teil der Taskleiste legen wo die Uhrzeit usw. angezeigt wird?
Also de facto ein eigenes Programm nur dort anzeigen und nicht an der üblichen Stelle?

[Balu der Bär]

TNA

Da die Suche grad außer Betrieb ist nimmste die hier:
http://www.google.de/search?hl=de&q=...le-Suche&meta=

[ghost1601]

oh gott, ist doch ein bisschen mehr als ich erwartet hatte^^
ich glaub ich lass die finger davon

[Balu der Bär]

So viel ist es doch gar nicht.

Quelle: Easy Delphi Helper - dsdt.info

Zitat:

Beim Minimieren den Task aus der Taskleiste entfernen

Ziel dieses Beispielcodes: Eine normal laufende Anwendung soll beim Minimieren aus der Taskleiste verschwinden und dafür im TNA-Bereich (TNA = Taskbar Notification Area) neben der Uhr erscheinen. Klickt man dort auf das Symbol, erscheint die Anwendung wieder normal in der Taskleiste.

Es wird die Komponente TApplicationEvent (Komponentenseite Zusätzlich) benötigt und ihr ein OnMinimize-Ereignis zugeordnet.

Die komplette Unit des Hauptfensters sieht anschließend so aus:

Delphi-Quellcode:

unit Unit1;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ShellApi, AppEvnts;

const
  IC_CLICK = WM_APP + 201;

type
  TForm1 = class(TForm)
    ApplicationEvents1: TApplicationEvents;
    procedure ApplicationEvents1Minimize(Sender: TObject);
    private
      { Private-Deklarationen }
      procedure Systray(var sMsg: TMessage); message IC_CLICK;
    public
      { Public-Deklarationen }
    end;

var
  Form1: TForm1;
  NIM : TNotifyIconData;

implementation

{$R *.DFM}

procedure TForm1.Systray(var sMsg: TMessage);
begin
  // Vorgang: Klick auf das Icon neben der Uhr und Anzeige der Anwendung
  inherited;
  if (sMsg.LParam = WM_LBUTTONDOWN) then begin
    Show;
    Shell_NotifyIcon(NIM_DELETE, @NIM);
    Application.Restore; //zeigt die Anwendung wieder an
  end;
end;

procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
  //Vorgang: Minimieren der Anwendung, Entfernung des Taskleisteneintrags
  //und Hinzufügen des Programmicons neben der Uhr
  Form1.FormStyle:=fsStayOnTop;
  Hide;
  with NIM do begin
    cbSize := SizeOf (nIM);
    Wnd := Handle;
    uID := 0;
    uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
    uCallbackMessage := IC_CLICK;
    hIcon := Application.Icon.Handle;
    szTip := 'Test-Programm';
  end;
  Shell_NotifyIcon(NIM_ADD, @NIM);
end;

end.

[ghost1601]

das ist wohl wahr, aber eben mit diesen quelltext funktioniert es eben nich...
ich hab es in mein programm genauso übertragen, jedoch mit eher gar keinem erfolg
fakt ist, sobal ich mit der maus auf die form komme minimiert sich der spass

[ghost1601]

korrektur!
jetzt geht's thx

[ghost1601]

nochmal eine kurze frage, wenn man die prozeduren so verwendet, wie sie hier im forum stehen, dann ist im falle eines minimierten programmes das icon des programmes neben der windows uhr zu sehen.
allerdings, wenn man mit der maus über das icon neben der windows uhr geht, kommt nur ein kurzer text.
    szTip := 'Test-Programm'; wie kann man es schaffen, dass an dieser stelle bei einem rechtsklick ein menü erscheint?
eins wie etwa beim MSN messenger oder ähnlichen programmen?