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?
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:
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;