buton ile dışardan exe çalıştırıp çalışan exeyi aktif pencere yapma yardım

Yapmak istediğiniz işle ilgili doğru bileşeni bulmak için burayı kullanabilirsiniz. Sadece bulmak için, diğer sorular Programlama forumuna lütfen.
Forum kuralları
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Cevapla
eskalibur_
Üye
Mesajlar: 16
Kayıt: 19 Kas 2014 03:09

buton ile dışardan exe çalıştırıp çalışan exeyi aktif pencere yapma yardım

Mesaj gönderen eskalibur_ » 02 Kas 2018 01:49

selam kendi programımdan bir butonla harici bir exe yi çalıştırıp bu programa tab ve enter tuşu göndermek istiyorum.
exeyi çalıştırıyorum fakat exeyi aktif pencere yapamadım. aktif pencere olmadığı için sendkey ile gönderdiğim tab ve enter başka pencereye gidiyor. sendkey, AppActivate ve Handle konularında bakmadığım yer kalmadı. Nerede hata yapıyorum

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
begin
     ShellExecute(Handle, 'open', 'C:\hariciexe\xxx.exe', nil, nil, SW_MAXIMIZE); //exeyi bulunduğu dizinden çalıştırıyor
     AppActivate('xxx');  //exenin formunun captionu buna göre exeyi aktif etmesi gerek
     SendKeys('{TAB}',true);
     SendKeys('{ENTER}',true);
end;

Cevapla