Einzelnen Beitrag anzeigen

Vjay

Registriert seit: 2. Dez 2003
Ort: Berlin/Eschede
481 Beiträge
 
Delphi 7 Professional
 
#18

Re: Problem mit Ausblenden aus Taskbar

  Alt 5. Jan 2004, 15:13
Achkomm ich hab grad meine nette phase

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
 h, h2, hSysTab: integer;
begin
 h:= findWindow('Shell_TrayWnd', NIL); //explorer
 h2:= findWIndowEx(h, 0, 'ReBarWindow32', NIL); //bar
 h2:= findWindowEx(h2, 0, 'MSTaskSwWClass', NIL);
 hSysTab:= findWindowEx(h2, 0, 'SysTabControl32', NIL);
 sendMessage(hSysTab, TCM_DELETEITEM, sendMessage(hSysTab, TCM_GETITEMCOUNT, 0, 0)-1, 0); // löscht letztes item
end;
löscht das letzte fenster, wie du die einzelnen tabs durchgehst und namen (fremder prozess) ausliest findest du in den beispielen irgendwo auf der seite. rest schaffst hoffentlich gutn8

[edit=sakura][delphi]-Tags gesetzt Mfg, sakura[/edit]
  Mit Zitat antworten Zitat