Получение координат значков на рабочем столе

uses CommCtrl;
var i, k:Integer;
 XYold,  XY : Array[1..100] of TPoint;
CurPos:TPoint;
 
function GetHandle: 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;
 
function GetXY(hwndLV: HWND; i: Integer; var ppt:
TPoint): Bool;
var PointBuf : ^TPoint;
begin
try
PointBuf := VirtualAlloc(NIL,Sizeof(TPoint),
$8000000 or MEM_COMMIT, PAGE_READWRITE);
Result := Bool( SendMessage(hWndLV,
LVM_GETITEMPOSITION, i, Longint(PointBuf)));
if Result then begin
ppt.x := PointBuf^.x;
ppt.y := PointBuf^.y;
end;
finally
VirtualFree(PointBuf,0,MEM_RELEASE);
end;
end;
 
procedure TForm1.btn1Click(Sender: TObject);
begin
i:=SendMessage(GetHandle,LVM_GETITEMCOUNT,0,0);
for k:=1 to i do 
begin
GetXY(GetHandle,k-1,XYold[k]);
mmo1.Lines.add(IntToStr(XYold[k].x) + ':' + IntToStr(XYold[k].y));
end;
end;