Visual Basic – 5 zanimljivih API trikova (VI deo)

Stigli smo do kraja ovog našeg malog serijala o API funkcijama i njihovoj upotrebi. A u poslednjem nastavku bavićemo se API funkcijom koja nam može pomoći kod potrebe pokretanja drugih aplikacija iz našeg programa. Ponekad će nam zatrebati da pokrenemo neki drugi Windows program, da recimo otvorimo neki dokument, štampamo dokumente, pretražujemo foldere, i slično, a sve to pod Windows operativnim sistemom. Za potrebu pokretanja drugih aplikacija na raspolaganju nam stoji ShellExecute API funkcija.

Pre nego ovu funkciju upotrebimo u našem programu, potrebno je da je deklarišemo:

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
Const SW_MAXIMIZE = 3

Kada smo ovu funkciju deklarisali, možemo je i pozvati unutar novoformiranog potprograma (IzvrsiProgram):

Sub IzvrsiProgram(ByVal sFileName as String, _

ByVal sWorkDir as String)

Dim iGreska As Long

Dim sGreskaPoruka As String
 iGreska = ShellExecute(0, "open", _

  sFileName, "", sWorkDir, SW_MAXIMIZE)
 If iGreska <= 32 Then

  Select Case iGreska

   Case 2

    sGreskaPoruka = "Fajl nije pronadjen."

   Case 31

    sGreskaPoruka = "Nema aplikacije 
koja je u vezi " & _

     "sa datom ekstenzijom fajla."

  End Select

  MsgBox (sGreskaPoruka)

 End If
End Sub

Pratite Krstaricu i preko mobilne aplikacije za Android i iPhone.