Yesterday is history, tommorrow is mystery , today is a gift ,that's why it is called present.

发布新日志

  • 获取DataTable列名

    2009-02-10 16:53:24

    Dim totalcol,value
    totalcol = datatable.GetSheet("Global").getparametercount
    For i=1 to totalcol
      value = datatable.GetSheet("Global").getparameter(i).name 
      msgbox value 
    Next

    查看(817) 评论(0) 收藏 分享 管理

  • 识别Delphi Toolbar

    2008-10-17 17:17:06

    工具栏识别不了,录制时Expert View中什么都没有,用了DeviceReplay对象成功回放

    Function tlbZCP(x , y)
     Dim device
     Set device = CreateObject("Mercury.DeviceReplay")
     device.MouseMove x , y
     device.MouseClick x, y , LEFT_MOUSE_BUTTON
    End Function

    tlbZCP 490,32

    查看(529) 评论(0) 收藏 分享 管理

Open Toolbar