[VBNET] [API] 다른 응용 프로그램 실행 : ShellExecuteA ()

* VBNET API 다른 응용 프로그램 실행 시키기 예제 : ShellExecuteA

 

메인화면

전체 소스 코드

Form1.vb

 

Public Class Form1

    Public Declare Function ShellExecuteA Lib "shell32.dll" ( _
    ByVal hWnd As IntPtr, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Integer) As IntPtr

    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
        '탐색기 실행 시키기...
        ShellExecuteA(Me.Handle, "open", "explorer.exe", "", "", 4)
    End Sub

    Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
        '계산기 실행 시키기...
        ShellExecuteA(Me.Handle, "open", "calc.exe", "", "", 4)
    End Sub

    Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click
        '실행 파일 오픈...
        Dim ofd As OpenFileDialog = New OpenFileDialog

        ofd.Filter = "EXE File (*.exe) | *.exe"

        '실행 파일 열기...
        If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
            '선택된 실행 파일 실행...
            ShellExecuteA(Me.Handle, "open", ofd.FileName, "", "", 4)
        End If

    End Sub
End Class

 

 

* 예제 결과

 

 

마지막 실행 파일 오픈 버튼 : 바로기가 또는 EXE 파일을 오픈 하여 그 프로그램이 실행 되는 모습을 보실 수 있습니다.

 

https://kdsoft-zeros.tistory.com/105

[C#] [API] 다른 응용 프로그램 실행 시키기 : ShellExecute ()