delphi 移动桌面图标

获取窗口句柄

function TForm1.GetDesktopHand: THandle;

begin

  Result := FindWindow('progman', nil);

  Result := GetWindow(Result, GW_Child);

  Result := GetWindow(Result, GW_Child);

end;

移动第六个图标

Hand := GetDesktopHand;

SendMessage(Hand, LVM_SetItemPosition,5,MakeLparam(100,100));