23/02/2006, 15:36
|
 | | | Fecha de Ingreso: mayo-2004 Ubicación: México
Mensajes: 2.702
Antigüedad: 21 años Puntos: 0 | |
Código:
Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const STILL_ACTIVE = &H103
Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess&, ByVal bInheritHandle&, ByVal dwProcessId&) _
As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" _
(ByVal hProcess As Long, lpExitCode As Long) _
As Long
Dim hShell As Long
Dim hProc As Long
Dim codExit As Long
Despues:
hShell = Shell(Environ$("Comspec") & " /c " & "mi comando de MS-DOS", 2)
hProc = OpenProcess(PROCESS_QUERY_INFORMATION, False, hShell)
Do
GetExitCodeProcess hProc, codExit
DoEvents
Loop While codExit = STILL_ACTIVE
Para un rar es es:
rar.exe a -ad -m3 -r c:\miarchivo.rar c:\que_quiero_respaldar |