Как изменить рабочий стол через sendmessage

[Romanbl4]

Хочу изменить ширину ListView рабочего стола через sendmessage. Хендл стола взял, а что дальше делать - не знаю

[_SERGEYX_]

Что значит изменить ширину? Разрешение экрана?

[Квэнди]

На рабочем столе Windows не существует элементов типа TlistView как и любых других элементов Delphi

[_SERGEYX_]

Квэнди, я тоже не совсем понял, но вот выдержка из ДельфиУорлд...

Рабочий стол перекрыт сверху компонентом ListView. Вам просто необходимо взять хэндл этого органа управления. Пример:

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;

После того, как Вы взяли тот хэндл, Вы можете использовать API этого ListView, определенный в модуле CommCtrl, для того, чтобы манипулировать рабочим столом. Смотрите тему "LVM_xxxx messages" в оперативной справке по Win32.
К примеру, следующая строка кода:

SendMessage(GetDesktopListViewHandle, LVM_ALIGN, LVA_ALIGNLEFT, 0);

разместит иконки рабочего стола по левой стороне рабочего стола Windows.

[Romanbl4]

может tlistview и нет, но есть сообщения LVM_messages, и я где-то встречал, как на рабочем столе играть со значками-ярлыками.
Изменить хочу не разрешение, а рабочую ширину, на которой располагаются ярлыки, чтобы моя прога-панель не загораживала значки на рабочем столе

[Romanbl4]

а где можно получить эту справку по Win32 "LVM_xxx messages"? я что-то находил, но там, по-моему было не то, т.к. в списке "сообщений" не нашел LVM_ALIGN

[Квэнди]

http://msdn2.microsoft.com/en-us/library/ms670560.aspx
http://msdn2.microsoft.com/en-us/lib...c3(VS.80).aspx