exe ye string veri göndermek

[Caqatay]

başlıgını bildigim bi programa (başlıktan kastım örn : Not Defteri örneğin ) bi exe ye nasıl string biçimindeki veriyi gönderebilirim.
veri derken program zaten o anda clipboarddaki linki yakalıyor zaten download manager ama ben sadece o exe yakalasın istiyorum ondan başka exeler yakalamasın linki bu yüzden atıyorum başlıgı everest download manager olan bi download managere yollasın sadece o string linki.nasıl yaparım bi yardımcı olurmusunuz handleleri hiç kullanmadım.

[quadr]

send message......

Kod: Tümünü seç

Gönderici kodu:
procedure DataS(WndClass:PChar;WndTitle:PChar;Msg:String);
var
  hWnd  : THandle
  cds   : CopyDataStruct;
 begin
  hWnd := FindWindow(PChar(WndClass), PChar(WndTitle));//Hedef pencereyi bul
  try
    cds.dwData := 0
    cds.cbData := Length(Msg);
    cds.lpData := PChar(Msg);
    SetForegroundWindow(hWnd);    SendMessage(hWnd, wm_CopyData, 0, Integer(@cds));
send the message
  finally
    CloseHandle(hWnd)         
  end;
end;

Kullanımı: DataS('NOTEPAD','Adsız – Not Defteri','testttttttttt');

Kod: Tümünü seç

Alıcı kodu:
private
  procedure GetData(var Msg: TWMCopyData); message WM_COPYDATA;

procedure TForm1.GetData(var Msg: TWMCopyData);
var
  sText: array[0..255] of Char;
begin
  StrLCopy(sText, Msg.CopyDataStruct.lpData, Msg.CopyDataStruct.cbData);
  Edit1.Text := sText;
end;

[Caqatay]

alıcı malesef benim yazdığım bir program değil.hangi dil ile yazıldıgını bilmiyorum ama flash get clipboardda ki linkleri yakalıyor.ama ben sadece o yakalasın istiyorum diğer programlara göndermesin sadece ona göndersin.

[sabanakman]

Bu gibi programlar ClipBoard'a hafızaya alınan yolu yakalamaktadır. Sizin tek yapmanız gereken dosya adresini hafızaya almak o kadar.

Kod: Tümünü seç

Edit1.Text:='http://www.adres.com/dosya.zip';
Edit1.SelectAll;
Edit1.CopyToClipBoard;

gibi bir kod işinizi görecektir. Dosya indirme programı hafızaya alınan bu değeri yakalayarak indirmeye çalışacaktır. İyi çalışmalar.