Переместить ярлыки на позиции на рабочем столе.

[Alex Cones]

Запускаю XP на виртуальной машине. Дабы нормально раскрывалось на весь экран приходится запускать в оконном режиме затем переключаться (CTRL+F) на весь экран. Благодаря постоянной смене разрешения экрана ярлыки на раб столе перемещаются так, чтобы умещаться на столе при низком разрешении. При разрешении 1024*768 они (разумеется) перемещаться обратно не думают. Поэтому решил соорудить прогу на дельфи для устранения этой проблемы. Бесформенное приложение сидит в памяти и раз в 2 секунды проверяет разрешение экрана. Если <1024*768, то перемещает ярлыки. Ярлыков немного: "Мой компьютер" - Лев. верхний угол,"Мои Документы" - под "мой к.",папка "Programming" - левый нижний угол, ярлык "Alius" - правее "Programming", ярлык "Project AGI" - правее "Alius",папка "Games" - правый верхний угол, "Корзина" - правый нижний угол.

Вопрос: Возможно ли создать такую программку и что для этого использовать (разумею не среду, а команды)?

[IT-man]

Рабочий стол перекрыт сверху компонентом 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.
К примеру, следующая строка кода:

{Не забудьте в uses добавить CommCtrl}
ListView_SetItemPosition(GetDesktopListViewHandle,i,x,y);

ярлыку с индексом i, задаст координаты (x,y). К примеру Мой компьютер имеет индекс 0, т.е i:=0;
К примеру, следующая строка кода:

SendMessage( GetDesktopListViewHandle, LVM_ALIGN, LVA_ALIGNLEFT, 0 );

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

[Alex Cones]

Благодарю, буду пробовать.

[Ergi]

Какая может быть ошибка, если уже первая строка Result := GetWindow(Result, GW_CHILD); возвращает 0?

[BOBAH13]

Сообщение от Ergi

Какая может быть ошибка, если уже первая строка Result := GetWindow(Result, GW_CHILD); возвращает 0?

Это аналог, если бы написать так:

Хочу сделать салат - мне надо взять: 1. салат

Думаю поняли. Вы передаете в GetWindow(Result.. а что такое Result ? Это уже Handle какого-то окна ?

Если же имелось ввиду все-таки не "первая" строка, а строка

Result := FindWindow('ProgMan', nil);

то удостоверьтесь что после ее выполнения Result <> 0

[Stilet]

Ну например окно ProgMan не найдено, или у нее нет "детей" ну в смысле окно пустехонькое.

Это уже Handle какого-то окна ?

Да действительно: Автор, тебе ценный намек - проверять результаты возвращаемые функциями:

 
 Result := FindWindow('ProgMan', nil);
 if not IsWindow(result) then Это не окно

перемещаться обратно не думают

Пардон, а поставить галочку на "выровнять автоматически" уже не модно?

[Ergi]

Сообщение от BOBAH13

Это аналог, если бы написать так:

Хочу сделать салат - мне надо взять: 1. салат

Думаю поняли. Вы передаете в GetWindow(Result.. а что такое Result ? Это уже Handle какого-то окна ?

Если же имелось ввиду все-таки не "первая" строка, а строка

Result := FindWindow('ProgMan', nil);

то удостоверьтесь что после ее выполнения Result <> 0

Я поэтому и спрашиваю про ошибки в Result := GetWindow(Result, GW_CHILD);, потому что Result := FindWindow('ProgMan', nil); возвращает handle окна. Но далее дело не идет. Вместо верхнего дочернего окна ProgMan, она возвращает ноль. IsWindow возвращает true. А под первой строкой я подразумевал Result := GetWindow(Result, GW_CHILD);, так как их две. и еще вопросик чему равна константа GW_CHILD? Покопался в интернете, нашел GW_CHILD=5, но может я не прав?

[Alex Cones]

чему равна константа GW_CHILD

Держите CTRL и нажимаете на эту константу.

[Ergi]

Извиняюсь, но пишу в vb, а не в delphi. Там такие переменные приходится вбивать вручную. А пишу у вас, т.к. нашел похожую проблему. Поэтому прошу вас нажать CTRL и сказать мне значение

[Stilet]

GW_CHILD = 5;