Prikazi cijelu temu 24.02.2011 12:45
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: XML po zadanoj shemi
Evo ti ova procedura.
Ona usporava shell odnosno kontrolise kada se zavrsi i provjerava jeli odradjeno pa tek onda dozvoljava dalji tok koda.
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
  4. Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
  5. Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  6.  
  7. Private Const SYNCHRONIZE = &H100000
  8. Private Const INFINITE = -1&
  9.  
  10. ' Usporava shel
  11. ' to finish, hiding while we wait.
  12. Private Sub UsporiShell(ByVal program_name As String, ByVal window_style As Integer)
  13. Dim process_id As Long
  14. Dim process_handle As Long
  15.     ' Start the program.
  16.    On Error GoTo ShellError
  17.     process_id = Shell(program_name, window_style)
  18.     On Error GoTo 0
  19.  
  20.     ' Wait for the program to finish.
  21.    ' Get the process handle.
  22.    process_handle = OpenProcess(SYNCHRONIZE, 0, process_id)
  23.     If process_handle <> 0 Then
  24.         WaitForSingleObject process_handle, INFINITE
  25.         CloseHandle process_handle
  26.     End If
  27.  
  28.     Exit Sub
  29.  
  30. ShellError:
  31.     MsgBox "Error starting task " & _
  32.          program_name & vbCrLf & _
  33.         Err.Description, vbOKOnly Or vbExclamation, _
  34.         "Error"
  35. End Sub

Procedura se poziva:
UsporiShell putanjafajla & "\pkzip " & PutZipa & "\" & ImeFajla & ".zip " & PutZapisa, vbHide

U prilogu zip fajl.

Prilozi:
pkzip_dos.zip
Preuzimanja:198
Velicina datoteke:69.33 KB

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.