RunAndWaitShell - FindWindowEx Konflikt ?!?

**Amnon82**

Ich hab ein Problem. Folgenden Code nehme ich als Fix her für ein Programm das ich von meinem Tool aus starte. Eine der neueren Versionen blockiert mein Tool wärend es läuft. Gedacht war es, das ich Zugriff auf beide Programme haben. Ich kann von meinem Tool aus den kompletten Vorgang abbrechen. Das geht nur nicht, wenn es einfriert.

Das Einfrieren meines Tools hatte ich schon. Gelöst wurde es mit RunAndWaitShell.
Wenn ich nun bei der neuen Version des Programms was ich fernsteuere manuel den Knopf drücke (sprich per Maus) ist mein Programm nicht blockiert (eingefrohren). Sobald ichs aber per Code mache frierts wieder ein. Ich hab mehrere Varianten ausprobiert (siehe //), komme aber nicht auf den grünen Zweig. Was kann es sein, das es doch einfriert?

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.EncodefixtimerPredTimer(Sender: TObject);

var Key: Char;

wnd2: hWnd;

pfad:string;

begin

EncodefixtimerPred.Enabled:=false;

pfad := ExtractFilePath(ParamStr(0)) ;

 wnd2 :=  FindWindow('#32770', PChar(Fenstertitel.text));

  wnd2 :=  FindWindowEx(wnd2, 0, 'Button', 'Knopf');

  //if wnd2=0 then exit else

  if wnd2 <> 0 then

  begin

  SendMessage(wnd2,BM_CLICK,0,0);

  //wnd2:=0;

  end;

end;

Hier nochmal RunAndWaitShell:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure RunAndWaitShell(Executable, Parameter: STRING; ShowParameter: INTEGER);

var

  Info: TShellExecuteInfo;

  pInfo: PShellExecuteInfo;

  exitCode: DWord;

begin

  {Pointer to Info}

  pInfo := @Info;

  {Fill info}

  with Info do

  begin

    cbSize := SizeOf(Info);

    fMask  := SEE_MASK_NOCLOSEPROCESS;

    wnd    := application.Handle;

    lpVerb := NIL;

    lpFile := PChar(Executable);

    {Parametros al ejecutable}

    {Executable parameters}

    lpParameters := PChar(Parameter + #0);

    lpDirectory  := NIL;

    nShow        := ShowParameter;

    hInstApp     := 0;

  end;

  {Execute}

  ShellExecuteEx(pInfo);

  {Wait to finish}

  repeat

    exitCode := WaitForSingleObject(Info.hProcess, 500);

    Application.ProcessMessages;

  until (exitCode <> WAIT_TIMEOUT);

end;

**Christian Seehase**

Moin Amnon,

das erste was mir auffällt (eventuell soll das aber auch so sein):
Du schaltest den Timer ab, schaltest ihn am Ende der OnTimer Prozedur aber nicht wieder ein.

Bist Du schon einmal im Einzelschritt durch die OnTimer-Prozedur gegangen, und hast die Werte geprüft?

**Amnon82**

Noch nicht. Was ich vergessen hab zu sagen ist folgendes. Der Fenstertitel verschwindet dann, wenn man auf den Knopf gedrückt hat. Anscheinend läuft der Timer weiter, was ich mir aber nicht erklären kann, da ich ihn abgeschalten hatte. Ich prüfe nun die Werte und sag Dir bescheid.

**Christian Seehase**

Moin Amnon,

Du solltest auch das erste Handle auf Gültigkeit prüfen.

**Amnon82**

Der Code für den Test:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.EncodefixtimerPredTimer(Sender: TObject);

var Key: Char;

wnd2: hWnd;

pfad:string;

begin

memo1.lines.add(TimeToStr(time)+'  '+'timer start');

memo1.lines.add(TimeToStr(time)+'  '+'##################');

pfad := ExtractFilePath(ParamStr(0)) ;

wnd2 :=  FindWindow('#32770', PChar(Fenstertitel.text));

memo1.lines.add(TimeToStr(time)+'  '+inttostr(wnd2));

  wnd2 :=  FindWindowEx(wnd2, 0, 'Button', 'Knopf');

  memo1.lines.add(TimeToStr(time)+'  '+inttostr(wnd2));

  //if wnd2=0 then exit else

  if wnd2 <> 0 then

  begin

  SendMessage(wnd2,BM_CLICK,0,0);

  memo1.lines.add(TimeToStr(time)+'  '+inttostr(wnd2));

  //wnd2:=0;

  end;

  memo1.lines.add(TimeToStr(time)+'  '+inttostr(wnd2));

EncodefixtimerPred.Enabled:=false;

memo1.lines.add(TimeToStr(time)+'  timer end');

memo1.lines.add(TimeToStr(time)+'  ##################');

end;

Hier die Werte von dem Test mit der neuen Version des Programms, wo mein Tool einfriert:

markieren

Code:

11:12timer start

11:12  ##################

11:12  460776

11:12  460770

12:32  460770

12:32  460770

12:32  timer end

12:32  ##################

12:35  timer start

12:35  ##################

12:35  526306

12:35  526294

13:55  526294

13:55  526294

13:55  timer end

13:55  ##################

13:58  timer start

13:58  ##################

13:58  0

13:58  0

13:58  0

13:58  timer end

13:58  ##################

Den dritten Durchlauf hab ich abgebrochen ...

Hier nun die Werte mit einer älteren Version des Programms wo's nicht einfriert:

markieren

Code:

18:59  timer start

18:59  ##################

18:59  0

18:59  0

18:59  0

18:59  timer end

18:59  ##################

20:21  timer start

20:21  ##################

20:21  0

20:21  0

20:21  0

20:21  timer end

20:21  ##################

21:41  timer start

21:41  ##################

21:41  0

21:41  0

21:41  0

21:41  timer end

21:41  ##################

Auch hier hab ich den dritten Durchlauf abgebrochen ...

Und hier hab ich mal den Timer bei einem Durchlauf mit dem neuen Programm nicht ausgeschaltet:

markieren

Code:

32:18  timer start

32:18  ##################

32:18  1116130

32:18  657224

33:37  657224

33:37  657224

33:37  timer end

33:37  ##################

33:37  timer start

33:37  ##################

33:37  0

33:37  0

33:37  0

33:37  timer end

33:37  ##################

33:39  timer start < Zeiter Durchlauf >

33:39  ##################

33:39  0

33:39  0

33:39  0

33:39  timer end

33:39  ##################

Nun die Schlussfolgerung. Beide Programme werden wie folgt gestartet:

RunAndWaitShell(pchar(ProgrammpfaduEXE.txt), ' -par1 "'+path+'temp\datei1.endung" -batch',value); Das alte Programm braucht den Knopfdrück-Fix nicht und startet sofort. Das neue hat einen Bug. Startet zwar aber fängt nicht an zu arbeiten. Wenn ich manuell auf den Knopf drücke fängt es an zu arbeiten. Mit dem Timer wollte ich das beheben. Sobald der Timer aber anspringt friert mein Hauptprogramm ein. Kann man dagegen was tun oder muss ich das so hinnehmen. Der Code erfüllt ja seinen Zweck ...

Zu der Handle-Prüfung ... Wie stellt man das an?

**Amnon82**

Ich hab nochwas ausprobiert, aber auch ohne Erfolg:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.EncodefixtimerPredTimer(Sender: TObject);

var Key: Char;

wnd2,wnd3: hWnd;

pfad:string;

begin

memo1.lines.add(TimeToStr(time)+'  '+'timer start');

memo1.lines.add(TimeToStr(time)+'  '+'##################');

pfad := ExtractFilePath(ParamStr(0)) ;

 wnd2 :=  FindWindow('#32770', PChar(Fenstertitel.text);

 memo1.lines.add(TimeToStr(time)+'  '+inttostr(wnd2));

  wnd3 :=  FindWindowEx(wnd2, 0, 'Button', 'Knopf');

  memo1.lines.add(TimeToStr(time)+'  '+inttostr(wnd2));

  memo1.lines.add(TimeToStr(time)+'  '+inttostr(wnd3));

  //if wnd2=0 then exit else

  if wnd3 <> 0 then

  begin

  SendMessage(wnd3,BM_CLICK,0,0);

  memo1.lines.add(TimeToStr(time)+'  '+inttostr(wnd2));

  memo1.lines.add(TimeToStr(time)+'  '+inttostr(wnd3));

  //wnd2:=0;

  end;

  memo1.lines.add(TimeToStr(time)+'  '+inttostr(wnd2));

  memo1.lines.add(TimeToStr(time)+'  '+inttostr(wnd3));

EncodefixtimerPred.Enabled:=false;

memo1.lines.add(TimeToStr(time)+'  timer end');

memo1.lines.add(TimeToStr(time)+'  ##################');

end;

markieren

Code:

56:24  timer start

56:24  ##################

56:24  wnd2 1247346

56:24  wnd2 1247346

56:24  wnd3 1575014

57:44  wnd2 1247346

57:44  wnd3 1575014

57:44  wnd2 1247346

57:44  wnd3 1575014

57:44  timer end

57:44  ##################

Ich hab den Code mit X-Spy generiert. Hier der Code von X-Spy:

zusammenfalten · markieren

Delphi-Quellcode:

			var

  wnd: HWND;

begin

  wnd :=  FindWindow('#32770', Fenstertitel);

  wnd :=  FindWindowEx(wnd, 0, 'Button', 'Button1');

  if wnd <> 0 then

  begin

  end;

end;

**Amnon82**

Ich habs jetzt mit dem Prüfen des Wertes rausbekommen

. Den Code hatte ich ja schon geschrieben ...

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.EncodefixtimerPredTimer(Sender: TObject);

{Variablen laden}

var Key: Char;

wnd2: hWnd;

pfad:string;

begin

{Timer ausschalten}

EncodefixtimerPred.Enabled:=false;

{Timerstart in eine Memo schreiben}

memo1.lines.add(TimeToStr(time)+'  '+'##################');

memo1.lines.add(TimeToStr(time)+'  '+'timer start');

{Fenster suchen}

 wnd2 :=  FindWindow('#32770', PChar('Fenstertitel');

{wnd2-Wert in eine Memo schreiben}

 memo1.lines.add(TimeToStr(time)+'  '+inttostr(wnd2));

{Prüfen ob Fenster existiert, wenn ja nach Button suchen}

if wnd2 <> 0 then  wnd2 :=  FindWindowEx(wnd2, 0, 'Button', 'Encode') else exit;

{wnd2-Wert in eine Memo schreiben}

memo1.lines.add(TimeToStr(time)+'  '+inttostr(wnd2));

{Prüfen ob Button existiert, wenn ja Button klicken}

  if wnd2 <> 0 then

  begin

  SendMessage(wnd2,BM_CLICK,0,0);

{wnd2-Wert in eine Memo schreiben}

  memo1.lines.add(TimeToStr(time)+'  '+inttostr(wnd2));

  end

  else

  exit;

{Befehlsende des Timers in eine Memo schreiben}

memo1.lines.add(TimeToStr(time)+'  timer end');

memo1.lines.add(TimeToStr(time)+'  ##################');

end;

markieren

Code:

23:50  ##################

23:50  timer start

23:50  329990

23:50  2230302

25:09  2230302

25:09  2230302

25:09  timer end

25:09  ##################

25:13  ##################

25:13  timer start

25:13  0

Leider friert mir mein Tool immer noch ein.

Hier nochmal der Befehl von meinem Tool aus:

markieren

Delphi-Quellcode:

			if Startfix.text='' then EncodefixtimerPred.enabled:=false else EncodefixtimerPred.enabled:=true;

RunAndWaitShell(pchar(EXE.text), ' -Parameter1 -Parameter2 -Parameter3',value)

**Christian Seehase**

Moin Amnon,

was mir auffällt:
Du schreibst nur zweimal den Wert des Buttonhandles ins Memo, es steht aber dreimal drin

Offensichtlich bewirkt das Anklicken des Buttons einen etwas zeitintensiveren Vorgang, denn der Abstand zwischen dem Eintrag vor und nach Sendmessage beträgt 1:19.
Hast Du berücksichtigt, dass SendMessage erst nach Verarbeitung der Message wieder zurückkehrt?

**Amnon82**

Hmm. Hab ich nicht bedacht. Wie könnte man das lösen. Sobald man auf den Button klickt wird ein anderes Fenster aktiv und ein MPEG2Film wird encodiert. Es handelt sich um einen MPEGEncoder der dadurch gestartet wird. Ich denke die einzige Lösung währe mit ShellExecute eine weitere EXE zu starten und die Parameter für den Fenstertitel der EXE mitgeben. Diese würde dann den Parameter als Fenstertitel hernehmen. Da ja nach ShellExecute der nächste Befehl RunShellandWait ausgeführt wird würde ja der Button von dem zweiten EXE-Programm geklickt, wenn der Timer abläuft.

... oder gibt es einen anderen Weg, das das Programm nicht einfriert. Mir würde sonst nichts besseres einfallen.

RunAndWaitShell - FindWindowEx Konflikt ?!?

RunAndWaitShell - FindWindowEx Konflikt ?!?

Re: RunAndWaitShell - FindWindowEx Konflikt ?!?

Re: RunAndWaitShell - FindWindowEx Konflikt ?!?

Re: RunAndWaitShell - FindWindowEx Konflikt ?!?

Re: RunAndWaitShell - FindWindowEx Konflikt ?!?

Re: RunAndWaitShell - FindWindowEx Konflikt ?!?

Re: RunAndWaitShell - FindWindowEx Konflikt ?!?

Re: RunAndWaitShell - FindWindowEx Konflikt ?!?

Re: RunAndWaitShell - FindWindowEx Konflikt ?!?

Forumregeln

Amnon82 Registriert seit: 5. Jan 2005 186 Beiträge FreePascal / Lazarus	#3 Re: RunAndWaitShell - FindWindowEx Konflikt ?!? 26. Jun 2005, 14:04 Noch nicht. Was ich vergessen hab zu sagen ist folgendes. Der Fenstertitel verschwindet dann, wenn man auf den Knopf gedrückt hat. Anscheinend läuft der Timer weiter, was ich mir aber nicht erklären kann, da ich ihn abgeschalten hatte. Ich prüfe nun die Werte und sag Dir bescheid.
	Zitat

Christian Seehase (Co-Admin) Registriert seit: 29. Mai 2002 Ort: Hamburg 11.107 Beiträge Delphi 11 Alexandria	#4 Re: RunAndWaitShell - FindWindowEx Konflikt ?!? 26. Jun 2005, 14:16 Moin Amnon, Du solltest auch das erste Handle auf Gültigkeit prüfen. Tschüss Chris Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel. Der Klügere gibt solange nach bis er der Dumme ist
	Zitat