为什么在本机运行好用，在别人机器上不好用呢？50分！

Question

小弟无聊，编了个和人开玩笑的小东西，可在本机上运行没问题，在别人机器说DLL有问题，为什么？
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Private Sub Form_Load()
Timetxt.Text = Format(Time, "medium time")
'Timetxt.Refresh
Timetxt.Locked = True
Call RegisterServiceProcess(GetCurrentProcessId(), 1)
End SubPrivate Sub Label2_Click()
End
End SubPrivate Sub Timer1_Timer()
Label1.Left = Label1.Left - 50
If Label1.Left < -6000 Or Label1.Left = -6000 Then
   Label1.Left = 6600
End If
End Sub
高手给看看，到底那里出问题了？

Answer 1

应该不是DLL没有注册的原因，因为楼主的代码中只引用了公用API，而没有DLL。问题可能是因为操作系统的问题，或者是病毒引起的。

Answer 2

换个打包工具，试试setupfactory，扫描完整dll文件再在其他机器上试试

Answer 3

RegisterServiceProcess这个函数是Windows中未公开的函数（该函数只能用于Win9x，不能用于WinNT/2000/XP）

Answer 4

RegisterServiceProcess在2000以后的系统无效

Answer 5

可能你调用的api在NT上不受支持也是有可能的