Hast recht Win2000 und WinXP Explorer-Bars unterscheiden sich
var
h, h2, h3, hSysTab: integer;
begin
h:= findWindow('Shell_TrayWnd', NIL); //explorer
//repeat
h2:= findWIndowEx(h, 0, 'ReBarWindow32', NIL); //bar
h3:= findWindowEx(h2, 0, 'MSTaskSwWClass', NIL);
hSysTab:= findWindowEx(h3, 0, 'SysTabControl32', NIL);
if hSysTab<>0 then // windows 2000
begin
sendMessage(hSysTab, TCM_DELETEITEM, sendMessage(hSysTab, TCM_GETITEMCOUNT, 0, 0)-1, 0); // löscht letztes item
end
else // winxp
begin
hSysTab:= findWindowEx(h3, 0, 'ToolbarWindow32', NIL);
sendMessage(hSysTab, TB_DELETEBUTTON, 1, 0);
end;
end;
Unter WinXP ist das Teil, wo die Buttons angezeigt werden eine Toolbar, so würd ich ansetzen, kenn mich mit Toolbars nicht aus, guck für weiteres mal in die
WinAPI Hilfe oder wo man sonst so reinschaut.
MFG
Vjay