小编Pas*_*alL的帖子

我有一个 Delphi 表单，上面有一个带有谷歌地图的 TWebbroser。我想模拟鼠标拖动。左键单击，将鼠标移动到另一个位置，松开鼠标。它应该从左到右拖动地图。我试过这个，但地图不拖。

procedure MoveMouse (X,Y,Speed: Integer);
var
Maus : TPoint;
mx, my, nx, ny, len : double;
begin
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);

if Speed < 1 then Speed := 1;

GetCursorPos(Maus);
mx := maus.x;
my := maus.y;

While (mx<>x)OR(my<>y) Do begin
nx := x-mx;
ny := y-my;
len := sqrt(nx*nx + ny*ny);

if(len<=1)Then begin
  mx:=x;
  my:=y;
end
else begin
  nx := nx / (len*0.5);
  ny := ny / (len*0.5);
  mx := mx + nx;
  my := my …

我这次来自服务器:1475245457452这个日期和时间是:30.9.2016,16:24:17

我怎么能把Delphi中的这个1475245457452转换成一个正确的日期和时间？