Как получить доступ к иконкам десктопа
Как получить доступ к иконкам десктопа
Как получить доступ к иконкам десктопа Вам просто необходимо взять хэндл этого органа управления. Пример: 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.
