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;