Win32::Process Explorer starten (Graphische Oberflächen)

[thread]13342[/thread]

Win32::Process Explorer starten

Leser: 24

Articles: hide open all | hide show old branches

+3 replies
Gast mephir

2009-04-06 13:51
Hallo,
ich habe folgendes Problem: Mit Win32::Process werden Programme gestartet. Beim Start und beim Beenden dieser muss ein Eventlog erstellt werden.

Wichtig ist, dass das Script warten muss, bis das Programm beendet wurde. Das funktioniert auch wunderbar - außer beim Explorer. Das Script läuft nach dem Start einfach weiter (erstellt einen "beendet"-Log und beendet sich selbst). Bei allen anderen Programmen wird "aufs Ende" gewartet.

Momentan sieht der Aufruf so aus:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

my $process; my $path = "C:\\Windows\\explorer.exe"; my $app = "explorer "; my $args = ""; if(Win32::Process::Create($process, $path, $app.$args, 1, NORMAL_PRIORITY_CLASS, ".") == 0) { ErrorReport(); } else { $process->Suspend(); # Create start event log # system("EVENTCREATE...."); $process->Resume(); $process->Wait(INFINITE); # Create stop event log # system("EVENTCREATE...."); }
Gruß und Danke
Last edited: 2009-04-06 13:54:40 +0200 (CEST)
- Crian
  
  2009-07-28 09:20
  
  User since
  2003-08-04
  5871 Artikel
  ModeratorIn
  
  Vielleicht kannst du mit start tricksen?
  s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
  
  use strict; use warnings; Link zu meiner Perlseite
- Gast wer
  
  2009-07-28 12:30
  
  Ich vermute mal, dass der Aufruf von "explorer.exe" nicht selber ein Fenster öffnet sondern ein Signal an den schon vorher laufenden Explorer sendet, der darauf hin das Fenster öffnen. Das Programm, was du startest endet also nur ein Signal und beendet sich dann.
  
  Man müsste herausfinden, was tatsächlich passiert und das Signal selber senden.

View all threads created 2009-04-06 13:51.