Суть темы такова:
Необходимо сохранить расположение иконок на рабочем столе, и при неоюходимости восстановить их.
Но полностью расписать код мне не надо, мне необходимо только узнать, где хранятся такие данные.
Я уже не знаю что делать. Снахало думал в реестре. Но после нескольких дней я ничего добится не смог.
В 98 сделал себе прогу, там было легко найти, а вот в ХР что - то некак. А пользоваться какими то программами не очень хочется, так как они либо кривые, либо тупые, либо нестадильные, либо не функциональные.
Подскажите кто чем может мыло моё [removed by moderator]
буду очень признателен.

Модератор: настройте себе уведомления об изменениях (подписка на тему).

Это сообщение отредактировал(а) Akina - 1.12.2005, 09:54

Все оч просто рабочий стол покрыт компонентом ListView его Item-ы и есть ярлычки.
Тебе нужно получить хэндл этого объекта для работы с ним.
Вот как это выглядит на делфи:

Код

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;

Вот как задать позицию ярлыка с номером I

Код

ListView_SetItemPosition(GetDesktopListViewHandle,i,x,y);

Так же можно задать расположение например по правому краю:

Код

SendMessage(GetDesktopListViewHandle, LVM_ALIGN, LVA_ALIGNLEFT, 0);

Описание всех АПИ (FindWindow, GetWindow, GetClassName) можно найти в МСДН
На барсик сам сможешь переварить

Вот тебе код модуля с описаниями всех АПИ и функция возвращающая Хэндл рабочего стола:

Код

Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, _                         ByVal wCmd As Long) As Long Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _               (ByVal hwnd As Long, _                ByVal lpClassName As String, _                ByVal nMaxCount As Long) As Long Declare Function FindWindow Lib "user32" Alias "FindWindowA" _         (ByVal lpClassName As String, _          ByVal lpWindowName As String) As Long Declare Function SendMessage Lib "user32" Alias _          "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _          ByVal wParam As Long, lParam As Any) As Long Public Const GW_CHILD = 5 Public Function GetDesktopListViewHandle() As Long Dim Hndl As Long Dim S As String Dim Length As String   S = Space(13)   Hndl = FindWindow("ProgMan", vbNullString)   Hndl = GetWindow(Hndl, GW_CHILD)   Hndl = GetWindow(Hndl, GW_CHILD)   Length = GetClassName(Hndl, S, 40)   If S <> "SysListView32" Then     GetDesktopListViewHandle = 0   Else     GetDesktopListViewHandle = Hndl   End If End Function

Это сообщение отредактировал(а) ~FoX~ - 1.12.2005, 09:09

А как получить доступ к этому ListView?

По полученному хендлу, собсно.

07pov23, Иеххх...


Все волшебные числа можно найти в МСДН. 
Для получения координат используй LVM_GETITEMPOSITION, номер найдешь в том же МСДН-е