Prikazi cijelu temu 08.09.2015 09:19
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: shell i kill funkcija u VB6
Evo probaj sa ovom procedurom.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub UsporiShell(ByVal program_name As String, ByVal window_style As Integer)
  2. Dim process_id As Long
  3. Dim process_handle As Long
  4.     ' Start the program.
  5.    On Error GoTo ShellError
  6.     process_id = Shell(program_name, window_style)
  7.     On Error GoTo 0
  8.  
  9.     ' Wait for the program to finish.
  10.    ' Get the process handle.
  11.    process_handle = OpenProcess(SYNCHRONIZE, 0, process_id)
  12.     If process_handle <> 0 Then
  13.         WaitForSingleObject process_handle, INFINITE
  14.         CloseHandle process_handle
  15.     End If
  16.  
  17.     Exit Sub
  18.  
  19. ShellError:
  20.     MsgBox "Error starting task " & _
  21.          program_name & vbCrLf & _
  22.         Err.Description, vbOKOnly Or vbExclamation, _
  23.         "Error"
  24. End Sub
program_name-App.Path & "\7za e imeFajla.zip -y"
window_style=0
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.