messenger'a yazı yazdırmak

[notname]

selam arkadaşlar

hemen soruma geçiyorum.

bir projeye başladım ve projem'de messenger kullanmam gerek

yani programımda bir memo var ve memo'ya yazı yazdıgım zaman gönder butonuna bastıgımda messengerdaki konusma bölümüne mesajı yazıp karsı tarafa gondermesini istiyorum.

bide messenger çalışmıyoken programın çalışmamasını nasıl sağlayabilirm

bazılarının aklına kötü bir düşünce gelebilir ama inanınki çok güzel birşey düşünüyorum.(şirketler için) aklınıza kötü şeyler gelmesin

saygılarımla...

yardım edenler'e şimdiden teşşekkürler

[mnt]

SendKey

veya diğer yöntem messengerı programın içine gömmek için;
Component -> Import Activex Control

[notname]

hocam sağolasın yaptım ama bi sorunum var

Kod: Tümünü seç

  AppActivate(' - Konuşma');
  tut:=memo2.Text;
  for i:=1 to length(tut) do
  begin
  sleep(50);
    harf:=tut[i];
    SendKeys(pchar(tut),false);
  end;

şu kodu kullandım. fakat konusma penceresi acıyorum button'a basıyorum, konusma penceresine yazmıyo, 5 yada 10 kere button'a basınca sonra konusma penceresine tıkladıgım zaman memo2 'dekileri konusma pencerisine yazdırıyo , bu seferde cok bastıgım için ardı ardına yazıyo bunun çözümü ne olabilir.

ben butona bastıgım gibi acık olan konusma penceresine yazdırmasını istiyorum tabi butona 5 - 10 kere basmayarak

[mege]

viewtopic.php?p=32020#32020

[mnt]

Kod: Tümünü seç

var
 tut:string;
 pharf:PChar;
begin
  if AppActivate('notname - Konuşma') then
  begin
    tut:=memo1.Text+#13;
    pharf:= @tut[1];
    SendKeys(pharf,false);
  end;
end;