RunAndWaitShell - FindWindowEx Konflikt ?!?

[Amnon82]

Ich habs jetzt mit dem Prüfen des Wertes rausbekommen . Den Code hatte ich ja schon geschrieben ...

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;

Code:

16:23:50  ##################
16:23:50  timer start
16:23:50  329990
16:23:50  2230302
16:25:09  2230302
16:25:09  2230302
16:25:09  timer end
16:25:09  ##################
16:25:13  ##################
16:25:13  timer start
16:25:13  0

Leider friert mir mein Tool immer noch ein.

Hier nochmal der Befehl von meinem Tool aus:

Delphi-Quellcode:

if Startfix.text='' then EncodefixtimerPred.enabled:=false else EncodefixtimerPred.enabled:=true;
RunAndWaitShell(pchar(EXE.text), ' -Parameter1 -Parameter2 -Parameter3',value)