Parametreyle Açılan Exede Bir Butona Tıklanmış Komutu Verme

[F.Atagun]

İyi Akşamlar,

AnaProgramım açıldığında Hatırlatma adındaki diğer Programımın otomatik açılıyor.

Kod: Tümünü seç

procedure TMainForm.Hatirlatma1Click(Sender: TObject);
var
  s:string;
begin
  S:=ExtractFilePath(Application.ExeName)+'Remember.exe'; 
  WinExec(PChar(Format('%s "/75FTH"',[S])),SW_SHOWNORMAL);
end;

Biliyorum ki
AnaProgramdan , açılan bu exedeki bir Edite aşağıdaki kodla gönderme yapabiliyorum.

Kod: Tümünü seç

  WinExec(PChar(Format('%s "/75FTH" %s',[S,dbgrid1.Fields[0].Text])),SW_SHOWNORMAL);

Peki Parametre ile açılan diğer exemdeki bir butona tıklanmış gibi bir komut göndermek istiyorum

Kod: Tümünü seç

  BitBtn5Click(Sender);

Bunun mümkünatı varmıdır ?

[aslangeri]

s.a.
edite gönderiyorum dediğiniz kod edite değil programa parametre gönderiyor. Program gelen parametreyi edite yazıyor. Eğer programı siz yazdıysanız ayrı bir parametre ile butona tıklatabilirsiniz. yok siz yazmadıysanız o zaman button un handlını bulup ona tıklandı mesajını gönderebilirsiniz.
kolay gelsin.

[F.Atagun]

Eğer programı siz yazdıysanız ayrı bir parametre ile butona tıklatabilirsiniz.

Hocam,
Acaba bir örnek verebilirmisiniz ? Bunu hiç yapmamıştım. Yada hangi kelimelerle bunu forumda aramalıyım


Teşekkürler

[aslangeri]

s.a.
paramstr, paramcount
parametre olarak (atıyorum) tıkla mesajınıda gönderirsin.

Kod: Tümünü seç

WinExec(PChar(Format('%s "/75FTH" %s',[S,dbgrid1.Fields[0].Text+' tıkla'])),SW_SHOWNORMAL);

sonra gelen parametreler içinde tıkla varsa butona tıklandığında çalışan prosedürü çalıştırırsın.

[F.Atagun]

Aslangeri Hocam Tamam şimdi çok iyi anladım

Çok teşekkür ederim, Allah razı olsun