Desktop上的图标(100分)

不行！没完呢，我不甘心！！！不甘心啊！！！
procedure TForm1.Button1Click(Sender: TObject);
var hDesktop, hTemp : THandle;
RPC: TRect;
begin
hTemp := FindWindow('ProgMan', nil);
hTemp := GetWindow(hTemp, GW_CHILD);
hDesktop := GetWindow(hTemp, GW_CHILD);
ListView_GetItemRect(hDesktop, 12, RPC, LVIR_ICON );
{or ListView_GetItemPosition(hDesktop, 12, p);}
{这个WORK：ListView_SetItemPosition(hDesktop, 11, 800, 430);}
end;

这段代码有什么问题？为什么总是出错？我可以ListView_SetItemPosition，
但却不能用ListView_GetItemRect得到ICON的位置。
让我找到它的位置！
Keyes：我最初的想法也是没必要用Hook，是Hubdog的意见使我认为用一般方法
无法实现。但现在看来，仍应该是可以。谢谢你的代码，我成功的把它编程了
DELPHI程序！一个完美的“蓝屏”程序 ^_^，不过，我在继续。

来人呐……PLEASE....
如果各位嫌分少，我再加也可，只是100分也应该差不多啊（心疼）……

这两天太忙，等过两天我再试试

??

等！
离成功只差一步之遥，我可以SET ICON的位置，
ListView_SetItemPosition(hDesktop, 11, 800, 430);
却不能得到它的位置，为何？
ListView_GetItemRect(hDesktop, 12, RPC, LVIR_ICON );

气死我？！

y9y
太抱歉了，我现在正跟mm聊天那，没工夫研究问题

To Hubdog：
嘿嘿嘿嘿嘿嘿嘿嘿，不用那么客气，和MM好聊。
霉人坐在墙外，呲着牙、揉着屁股，却是一脸的坏笑，仿佛已经
看见墙里面将要上演的一幕幕充满无奈苦涩和泪水的三流剧目。
天作孽，尚可恕，自作孽，不可活。这都是你自己找的。

谢谢大家