الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

how to send keys

مغلق
بدأه DR-A في 30 أغسطس 2001 · 5 رد · 842 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

هيلووووووووو

كيفكم؟ اخباركم؟ علومكم؟

ممكن احد يقولي (لو يفصل شوي يكون مشكور لأنه ما اتوقع انه بيطوول) كيف ارسل حروف الى برنامج انا مشغله اخر؟؟

اذكر انها بالفيجوال بيسك تقريبا SendKey و مدري ايش

لكن انا الحين دلفييييييي :) :D

أنتظر جوابكم على احر من الجمر

أشكركم مقدما

أخوكمممممم DR-A

:D

#2

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

Coding on the Cloud and for the Cloud!

My Blog

#3

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

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

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

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

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

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

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

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

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

#4

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

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

:)

ومرحبا بك

#5

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

اخي العزيز

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

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

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

على العموم

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

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

#6

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

فاليك هذا الكود الي يبين طريقة ارسال البيانات على البرامج الأخرى بواسطة 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

هذا الموضوع مغلق.

مواضيع مشابهة