تو xp و Seven تست شد مشکل ندره ، کاربر ویندوز هم که باید Administrator باشه ، کاربر Limit که معنی نداره.
کد HTML:
Sub Main()
Call CheckComponents
FrmMain.Show
End Sub
Sub CheckComponents()
Dim StrAppPath As String
Dim StrComFile As String
StrAppPath = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
StrComFile = "COMDLG32.OCX"
If Dir(StrAppPath & StrComFile) = vbNullString Then
Call MsgBox("COMDLG32.OCX not found.", vbExclamation)
End
Else
Call Shell("regsvr32 /s " & StrAppPath & StrComFile, vbHide)
End If
End Sub