So geht es einfachher:
Delphi-Quellcode:
hIcon := LoadImage(hInstance, MAKEINTRESOURCE(4), IMAGE_ICON, 16, 16, LR_DEFAULTCOLOR);
SendMessage(hStatusBar, SB_SETICON, 0, hIcon);
Icon aus einer Ressource laden (LoadImage) und mit SB_SETICON einfügen. Der dritte Parameter von Sendmesssage gibt das Panel an, hier das erste.