Следующий код производит изменение ширины панели быстрого запуска:
1: Wnd := FindWindow('Shell_TrayWnd', nil);    
2: Wnd := FindWindowEx(Wnd, HWND(0), 'ReBarWindow32', nil);
3: Wnd := FindWindowEx(Wnd, HWND(0), 'ToolBarWindow32', nil);
4: Setwindowpos (Wnd, 0, 0, 0, 500, 20, SWP_NOMOVE );
Но при этом не происходит сдвиг панели с отображением запущенных программ и остается видна кнопка, которая появляется в панели быстрого запуска если иконок больше, чем помещается в ней при заданной ширине.
Задача изменить ширину Quick Launch так, чтобы были видны все иконки всех ярлыков находящихся по адресу C:\Documents and Settings\Имя_пользователя\Application Data\Microsoft\Internet Explorer\Quick Launch.
Спасибо.

А почему именно ширину?
У меня панелька слева - высоту менять надо.
А чтоб не было кнопки, нужно сначала увеличить на иконку больше, а потом на эту иконку снова ужать.

После установки Windows XP из стандартного дистрибутива, по умолчанию панель быстрого запуска вообще не отображается.
Для того чтобы она отображалась необходимо в свойствах панели, на вкладке "Панель задач" установить галку 
в пункте "Отображать панель быстрого запуска", после чего она станет видна, причем слева от кнопки пуск. 
Но! Если в этот момент в папке
C:\Documents and Settings\Имя_пользователя\Application Data\Microsoft\Internet Explorer\Quick Launch
находится более трех ярлыков или файлов, видны в панели быстрого запуска будут только ТРИ первых ярлыка, далее появляется кнопка , при нажатии на которую отображаются и остальные ярлыки.
Задача растянуть ПРОГРАММНО панель быстрого запуска, чтобы отображались ВСЕ ярлыки.
Если что-то в изложении показалось туманным - просто отключите панель быстрого запуска и включите вновь - все станет сразу ясно ( при наличии более трех ярлыков или файлов в соответствующей папке ).
Спасибо за содействие.