[aleksejs1]

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

[JCDArtem]

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

Код:

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. Береш Хэндл стола:

Код:

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. Работаеш с ним :
Упорядочить слева, например, :

Код:

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]

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

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