#if debug then
#end if
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Const GWL_HINSTANCE = (-6)
Private Declare Function GetWindowLong_ Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Sub Form_Load()
Dim iInstance As Long, iDummy As Long
Dim sExecName As String
iInstance = GetWindowLong_(Me.hwnd, GWL_HINSTANCE)
sExecName = String$(255, " ")
iDummy = GetModuleFileName(iInstance, sExecName, 255)
MsgBox sExecName
End Sub
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.