title image


Smiley Re: du brauchst doch nur warten...
wenn du die Message erst nach dem Beenden der mit Shell gestarteten Anwendung an die ursprüngliche WindowProg weiterleitest, stellt sich das Problem eigentlich gar nicht, weil Windoof ja noch auf das Ende deiner Hookfunktion wartet.



Private Const STILL_ACTIVE = &H103&

Private Const PROCESS_VM_READ = &H10

Private Const PROCESS_QUERY_INFORMATION = &H400





Private Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long

Private Declare Function GetExitCodeProcess Lib "Kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long





Private Sub ShellAndWait(ByRef strCommand As String)

Dim ProcID As Long

Dim ProcHandle As Long

Dim ExitCode As Long



   ProcID = Shell(strCommand)

   ProcHandle = OpenProcess(PROCESS_VM_READ Or PROCESS_QUERY_INFORMATION, 0, ProcID)



   Do

      GetExitCodeProcess ProcHandle, ExitCode

      DoEvents

   Loop While ExitCode = STILL_ACTIVE

End Sub







'// ...

If uMsg = WM_QUERYENDSESSION Then



   ShellAndWait "C:\COPY.BAT"



   WindowProc = CallWindowProc(lpPrevWndProc, hw,

'// ...






Gruß
Gaga

___________________________________________________________________

Profilösungen für VB6
wenn nicht anders angegeben, sind alle Codebeispiele nicht getestet, nur getippt


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: