Zitat von
Luckie:
Schöne Grüße aus Vellmar übrigens.
Hey, noch jemand im Schatten des Herkules
Also habe es mal auf die Schnelle probiert was gesammelt und zusammengebaut (quick&dirty)
Ergebnis ist aber unter XP immer 32, möchte aber die tatsächliche Größe (20) zurück bekommen.
Delphi-Quellcode:
uses commCtrl;
var tBB : TTBBUTTON;
tBI : TBBUTTONINFO;
TaskbarHwnd, TrayHwnd: HWND;
begin
TaskbarHwnd := FindWindow('Shell_TrayWnd',nil);
TrayHwnd := FindWindowEx(TaskbarHwnd,0,'TrayNotifyWnd',nil);
FillChar(tBB, SizeOf(tBB), 0);
SendMessage (TrayHwnd, TB_GETBUTTON, 0, Integer(@tBB));
FillChar(tBI, SizeOf(tBI), 0);
tBI.cbSize := SizeOf(tBI);
tBI.dwMask := TBIF_STYLE;
SendMessage(TrayHwnd, TB_GETBUTTONINFO, tBB.idCommand, Integer(@tBI));
Caption := IntToStr(tBi.cbSize);
end;
Grüße aus Kassel, nach Vellmar und dem Rest der Welt.