Как создать программу-панель (как панель Msoffice), чтобы была поверх всех окон

[Romanbl4]

Хочу создать программу-панель, типа панели запуска MSOffice в Office 97 или типа панели задач (меню "пуск"), чтобы она не загораживала ярлыки на рабочем столе, а как бы являлась его частью (находясь при этом справа, или слева, или сверху рабочего стола). Помогите, столько всего пересмотрел, ничего не могу найти.

[strannik]

Укажи в свойствах формы (top, left, position, height, width) где и как она должна отображаться.

[Romanbl4]

Да саму-то форму-панель я уже сделал. А вот сделать так, чтобы она не загораживала значки на рабочем столе, а как бы заставила уменьшить рабочее пространство на desktope - вот это проблема. Я просто путем не могу объяснить... чего хочу добиться... Пример: попробуй щелкнуть на панели задачь (там где "Пуск") правой клавишей и выбери там "Панели инструментов - Создать...", выбери любую папку. Панель создастся на панели задач. Потом щелкни правой клавишей опять на панели задач и убери галочку "закрепить панель задач". Перетащи созданную панель, "схватив" за подпись (название) панели, например, вверх. Щелкни на ней правой клавишей и поставь галочку "Поверх остальных окон". А теперь попробуй развернуть любое окно, например, проводник, на весь экран - он ее не загородит а встанет с ней в стык. Вот этого эффекта я хочу добиться со своей программой.

[Компоратор]

Хм... Вероятно нужно иконки как-то сдвигать. Такое возможно, но вот как - этого я не знаю.

[strannik]

Для отображения формы поверх всех окон используй api функцию SetWindowPos () - например:
На FormCreate кинь это:

with form1 do
SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

[НЕ_АЙС]

Так...ну судя по всему нужно брать хэндл ListView рабочего стола и поиграть с его размерами, т.е когда появляется твоя панелька слева, то уменьшить ширину на ширину панели и сдвинуть вправо...
Вот такой вот изврат)
Скорее всего это делается по другому, но это первое мнение

[Romanbl4]

Хендл рабочего стола я взял

function GetDesktopListViewHandle: THandle;
var
S: String;
begin
Result := FindWindow('ProgMan', nil);
Result := GetWindow(Result, GW_CHILD);
Result := GetWindow(Result, GW_CHILD);
SetLength(S, 40);
GetClassName(Result, PChar(S), 39);
if PChar(S) <> 'SysListView32' then Result := 0;
end;

А кокое сообщение нужно послать, чтобы изменить размер
sendmessage(GetDesktopListViewHandl e, LWM_????,?????,????)