请教，SHELL问题

你的意思是1.exe关闭了再运行2.exe吗？

比如1.exe运行一段程序需要5秒，我想等过了5秒之后在运行2.exe，不一定要等关闭之后�

那你就定时器啊，你把定时器设置为5秒的，开始的时候定时器的Enabled属性设置为False，运行1.exe后改定时器的Enabled为True，让定时器运行，到了5秒再调用你那个程序，呵呵�

其实也可以用Do ... Loop，只是循环时CPU占用有点大。

Dim T As Single
T=Timer
Do
 DoEvents
Loop Until Timer-T>5

我只是说比如5秒，不一定会5秒啊，如果运行时间长的话就进行不下去了，运行时间短的话就浪费几秒了�

那如果是要等到1.exe运行结束后在运行2.exe，请问该如何实现呢？

呵呵，两个程序都是你的话也好办，比如说你运行1.exe了，1.exe运行某段程序之前先向某个地方写入一个值，运行完了再写入一个值，你根据写入的这个值来判断程序是不是运行2.exe，呵呵！

不知道怎么说了，是这样的。
Shell "winrar.exe A 1.rar 1.jpg"
Shell "winrar.exe X 1.rar 1.jpg"
比方说1.jpg很大，有10M，压缩需要一些时间，如果直接运行第二条的话会出现错误，中间需要一些停顿，我不知道怎么办�

HELP ME

你调用完了应该程序也就关了吧�

给你个代码，用这个可以判断你用Shell运行的程序是否还在运行，你自己研究一下吧，呵呵！

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const PROCESS_QUERY_INFORMATION = &H400

Private Function IsRunning(ByVal ProgramID) As Boolean
Dim hProgram As Long
hProgram = OpenProcess(PROCESS_QUERY_INFORMATION, False, ProgramID)
If Not hProgram = 0 Then
 IsRunning = True
Else
 IsRunning = False
End If
CloseHandle hProgram
End Function

Private Sub Command1_Click()
Dim X As Long
MsgBox "开始运行"
X = Shell("C:\windows\system32\notepad.exe", 1)
While IsRunning(X)
 DoEvents
Wend
MsgBox "结束运行"
End Sub

8错8错，谢谢云霞散人老师啊，帮我大忙了�

不用客气，呵呵！