[aleksejs1]

Как управлять иконками на рабочем столе? Как с ними вообще работать? Как их двигать?

[JCDArtem]

Менять фон так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

uses ...Registry; //подключаем модуль ... procedure TForm1.Button1Click(Sender: TObject); var   Reg: TRegIniFile; begin   Reg := TRegIniFile.Create('Control Panel');   Reg.WriteString('desktop', 'Wallpaper', 'c:\windows\Установка.bmp');   Reg.WriteString('desktop', 'TileWallpaper', '0');   Reg.Free;   SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE); end;

Манипуляция иконками:
1. Береш Хэндл стола:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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;

2. Работаеш с ним :
Упорядочить слева, например, :

Код:

1	SendMessage(GetDesktopListViewHandle, LVM_ALIGN, LVA_ALIGNLEFT, 0);

Остальные константы LVM_***** найдеш в модуле, де валяется SendMessage...

[aleksejs1]

А в каком юните Эти константы?

А вообще меня больше интересовало передвижение отдельных иконок. Но я уже нашол.

PHP код:

ListView_SetItemPosition(GetDesktopListViewHandle,i,x,y);

{ярлыку с индексом i, задаст координаты (x,y).} 


[JCDArtem]

Список системных сообщений можеш глянуть здесь.

[aleksejs1]

Только вот LVM_ALIGN там нету. И у меня оно тоже не идёт.

[mav_c]

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

А в каком юните Эти константы?

А вообще меня больше интересовало передвижение отдельных иконок. Но я уже нашол.

PHP код:

ListView_SetItemPosition(GetDesktopListViewHandle,i,x,y);

{ярлыку с индексом i, задаст координаты (x,y).} 


В юните
CommCtrl

[[The]Unknown]

Я не совсем понял...
К примеру, мне надо сделать прогу, при наведении мышки на иконку
на десктопе она изменяет своё положение.

Как это реализовать!?