Delphi怎样排列桌面图标,刷新不还原的

40 | 问答知识库用户 |浏览205次
检举|收藏|2014/05/17 21:59
按照网上找到的方法,出现这样的情况! 如果排列之前对齐了图标,排列之后刷新就还原了!排列之前拖动任意一个图标,再排刷新就不会还原!有什么方法可以做到不管怎么弄,刷新都不还原的吗?
全部回答(1)
  • 模拟一次鼠标拖动图标就可以解决这个问题,win 7里面没有这个问题!
    选取一个已知图标的坐标,将坐标传到下面的方法里,即可模拟鼠标拖拽图标的动作!
    procedure DoMouseDrag(APostionX, APostionY: Integer);
    var
      P: TPoint;
    begin
      Windows.GetCursorPos(P);
      SetCursorPos(APostionX, APostionY);
      mouse_event(MOUSEEVENTF_LEFTDOWN, APostionX, APostionY, 0, GetMessageExtraInfo);
      Sleep(200);
      SetCursorPos(APostionX + 10, APostionY + 10);
      Sleep(150);
      mouse_event(MOUSEEVENTF_LEFTUP, APostionX + 10, APostionY + 10, 0, GetMessageExtraInfo);
      Sleep(100);
      SetCursorPos(P.X, P.y);
    end;
    回答于 2014/05/17 21:59
0人关注该问题



 加载中...