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)