[Amin_Mansouri]

بهتره با برنامه setup اینکارو کنی







اما برای رجیستر کردن dll از دستور زیر استفاده کن

کد:

DIM PARVIN AS STRING

PARVIN = "C:\WINDOWS\PARVIN.DLL"

Shell "regsvr32 /s " & PARVIN, vbHide

با این دستور هم میتونی DLL رو بزاری تو ریسورس و ازش استفاده کنی ما خوب به این روش انتی گیر میده :

کد:

Private Sub Form_Load()







Dim strWSPath As String















strWSPath = GetWinDir & "SYSTEM32MSWINSCK.OCX"







Shell "regsvr32 /s " & strWSPath, vbHide















If Dir$(strWSPath) = "" Then







Dim bytResData() As Byte







'I'm sure that it's in the resource file and it will extract ok,







'so that's not a problem







bytResData = LoadResData(1, "CUSTOM")







Open strWSPath For Binary As #1







Put #1, , bytResData







Close #1







Shell "regsvr32 /s " & strWSPath, vbHide







DoEvents







End If







End Sub















Private Function GetWinDir() As String







'Returns the windows directory, like "C:WINDOWS"







'I didn't include it beacuse I know it works







End Function