Nej, men du kan få din kode til at vente på, at Shell er færdig med at eksekvere, ved at bruge 2 API\'er, ShellExecuteEx og WaitForSingleObject - 2 secs, så finder jeg lige et eksempel...
Private Type SHELLEXECUTEINFO cbSize As Long fMask As Long hwnd As Long lpVerb As String lpFile As String lpParameters As String lpDirectory As String nShow As Long hInstApp As Long lpIDList As Long lpClass As String hkeyClass As Long dwHotKey As Long hIcon As Long hProcess As Long End Type Private Declare Function ShellExecuteEx Lib \"shell32.dll\" Alias \"ShellExecuteExA\" (lpExecInfo As SHELLEXECUTEINFO) As Long Private Declare Function WaitForSingleObject Lib \"kernel32.dll\" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Dim Go As SHELLEXECUTEINFO Dim Ans As Long Dim gStr As String Const WAIT_TIMEOUT = &H102 Const SEE_MASK_NOCLOSEPROCESS = &H40
Private Sub Command1_Click() With Go .cbSize = Len(Go) .fMask = SEE_MASK_NOCLOSEPROCESS .hwnd = Me.hwnd .lpVerb = \"open\" .lpFile = \"c:\\pingfil.bat\" .lpParameters = \"\" .lpDirectory = \"c:\\\" .nShow = 5 End With Ans = ShellExecuteEx(Go)
If Not Go.hProcess = 0 Then Do Ans = WaitForSingleObject(Go.hProcess, 0) DoEvents Loop While Ans = WAIT_TIMEOUT Else MsgBox \"Filen kunne ikke åbnes...\" Exit Sub End If
Hvis jeg gør som du skriver driis så får jeg at vide at filen ikke findes selvom der lige er blevet åbnet et dos vindue der vise det der står i den bar fil jeg eksekvere???
Eller måske du kan bruge den her i stedet - Jeg ved ikke hvorfor den anden løsning ikke du\'r, men der kan evt. være forskelligheder i API kaldene mellem de 2 OS\'er, som gør at det ikke virker.
har lidt problemer med de her shellandwait ting.. har nok prøvet de første 10 forskellige.. og de lukker alle liige efter de har launched counter-strike(CS)..
Jeg ved ikke om hl.exe launcher et andet program, der gør at ens shellandwait bare er færdig med det samme.. men hvis den gør det hvad gør jeg så ?
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.