how to send keys

Hi Dr-A,

Nice to see you again.. Any how, congratulations to you to move into the Delphi World after trying VC world..

You might need to look at this link:

http://arabteam.nicmatic.com/vb/showthread...3?threadid=2674

:D

هلالالالالالالالالالالالالالالالالا استاذ هاني

والله مدري وش اقولك... انا حاولت بالـVC سبوعين و عووووووووووووووورت راسيييييي و طلعلي شيب :(

بس الحمدلله الدلفي سهههههههههههله و هذي اللغة اللي انا ادورها من زمااااااان

أشكرك جدا على سرعة ردك

و أشكرك اكثر على الموضوع ..لكن... لم اجد جوابي

أنا ابي بالدلفي... و هذا شكله ماااهو دلفي ولا؟؟؟؟؟

كالعادة سألت في الـIRC أول و واحد قال Use sendkey او شي زي كذا, المهم شوية الا تهاوشت مع اللي جاوبني و كان اوب و طردني :( و كالعادة الحل الثاني اني اجي ازعجكم هنااااااا :D

أنتظر منكم الجواب بالدلفي... و حاولوا توضحون أكثر شوي...

أشكرك مقدما. :)

دختورنا العزيز

يوجد مثال في دلفي 6 وهو عن كيفية الكتابة إلى برنامج الـWord

:)

ومرحبا بك

بسم الله الرحمن الرحيم

اخي العزيز

يوجد عدة طرق لأرسال بيانات الى برامج اخرى

وطبعاً يوجد كمبوننت لهذه الأعمال

وانا افضل ان تستخدمها

على العموم

قم بتحميل هذا الكائن الذي سيساعدك في هذه العمليات من هذه الوصلة:

http://delphi.icm.edu.pl/ftp/d20free/sendkeys.zip

ثم قم بتركيبه على الدلفي

وجرب هذا المثال :

WinExec('NotePad.exe', SW_SHOW); window.

SendKeys1.GetWindowHandle('Naamloos - Kladblok');

if SendKeys1.WindowHandle <> 0 then

SendKeys1.SendKeys('This is a test');

وتقبل اطيب تحياتي اخوك SUM

طبعاً اذا كنت ماتحب تستخدم الكائنات

فاليك هذا الكود الي يبين طريقة ارسال البيانات على البرامج الأخرى بواسطة SendMessage

procedure SendMsg(const h: HWND; const s: string);

var

i: integer;

begin

if h = 0 then

Exit;

if Length(s) = 0 then

Exit;

for i:= 1 to Length(s) do

begin

if Ord(s) in [9, 13, 32..254] then

SendMessage(h, WM_CHAR, Ord(s), 0);

end;

end;

وتقبل اطيب تحياتي اخوك SUM