Registriert seit: 2. Dez 2003
Ort: Berlin/Eschede
481 Beiträge
Delphi 7 Professional
|
Re: Problem mit Ausblenden aus Taskbar
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]
|
|
Zitat
|