• Home
 · 
• Windows System Services
 · 
• This Code perfrom the same functionality as the run command provided by windows using API

This Code perfrom the same functionality as the run command provided by windows using API

This Code perfrom the same functionality as the run command provided by windows using API

API Declarations



Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim i As Long, iHwnd As Integer



Rate This Code perfrom the same functionality as the run command provided by windows using API

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

   If KeyCode = 13 Then
        If Trim(txtCommand.Text) <> "" Then
           ShellExecute frmAddressBar.hwnd, "OPEN", txtCommand.Text, vbNullString, vbNullString, vbNormalFocus
        End If
    End If
End Sub
Private Sub cmdBrowse_Click()
    cd1.DefaultExt = "*.*"
    cd1.Filter = "*.*"
    cd1.ShowOpen
    txtCommand.Text = cd1.FileName
    cmdOpen.SetFocus
End Sub

Private Sub cmdCancel_Click()
    Form_KeyUp 27, 0
End Sub

Private Sub cmdOpen_Click()
    txtCommand_KeyUp 13, 0
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 27 Then
        End
    End If
End Sub

Private Sub Form_Load()
    If App.PrevInstance = True Then
        MsgBox "One Instance already loaded", vbInformation
        End
    End If
End Sub