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

كيف يمكنني الحصول على العنوان hanlde

مغلق
بدأه tarik_lahresh في 6 أكتوبر 2003 · 2 رد · 1,378 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

لدي سؤال إن كان بالأمكان مساعدتي ، حاولت كثيرا ولم اصل الى نتيجة

وهو /

كيف احصل على الهاندل handle لأي edit أو compobox في البرنامج أو أي برنامج أخر خارج الدلفي ..

لقد حاولت كثيرا وبحث في الهلب عن gethandle ولم اجد حل ..

المحاولات مثل /

var
P : TPoint;
  v:variant;
  i:integer;
begin
GetCursorPos(P);
//If  SendMessage(WindowFromPoint(p),EM_GETPASSWORDCHAR,0,0) = 0 then Exit;
SendMessage(WindowFromPoint(P),EM_getHANDLE,255,v);
//SendMessage(WindowFromPoint(P),WM_HANDHELDFIRST,255,1);
 //HandleNeeded;
 //(GetCursorPos(P));
 edit1.Text:=v;
end;

الرجاء ان كانت لديكم معلومة أن تساعدوني، لأني بعد معرفة الهاندل لأي edit في اي برنامج يمكنني ارسال قيمة اليها ،،حيث بمعرفتها استطيع ان ارسل قيمة لأي برنامج يجتاج الى ادخال قيم من edit أو combobox

هذا الموضوع بالتأكيد يهم الجميع ، وأسأل الله أن تكون قد فهتموني

حيث استخدم في عملية الأرسال وبعد معرفة قيمة الهاندل /التالي]

procedure Send(const Hand: THandle; const Text: string); 
var 
  i: integer; 
begin 
  if Hand = 0 then 
    Exit; 
  if Length(Text) = 0 then 
    Exit; 
  for i:= 1 to Length(Text) do 
  begin 
      SendMessage(Hand, WM_CHAR, Ord(Text), 0); 
  end; 
end

اخذت هذا الكود الاخير من عزيزنا SUM

#2

لقد اعطاني صديقنا وحبيبنا الاخ الفاضل ( أبوهاني ، بارك الله فيه ) من ملتقى المبرمجين العرب هذا الحل / واطرحه الآن لكي يستفيد منه الجميع / ألف شكر للأخ العزيز / أبوهاني

function URL:string; 
var 
ie,toolbar,combo,combobox 
,edit,worker:THandle; 
Tex:string; 
begin 
ie := FindWindow('IEFrame',nil); 
worker := FindWindowEx(ie,0,'WorkerA',nil); 
toolbar := FindWindowEx(worker,0,'rebarwindow32',nil); 
Combobox := FindWindowEx(toolbar, 0, 'comboboxex32', nil); 
Combo := FindWindowEx(combobox,0,'ComboBox',nil); 
Edit := FindWindowEx(combo,0,'Edit',nil); 
SetLength(Tex,Max_Path); 
SendMessage(Edit,WM_GETTEXT,Max_Path,LongInt(@Tex[1])); 
Result:=Tex; 
end;

منقول من منتدى المبرمجين العرب ( من الاخ العزيز / أبوهاني ) رحم الله والديه ووالدينا،

العنوان ، في ملتقى المبرمجين العرب

#3

السلام عليكم

أتذكر اني كتبت برنامج WindowInfo وقد أرفقت الكود في المنتدى .

الموضوع الذي تبحث عنه نوقش في العديد من صفحات الانترنت . بحث بسيط في احد محركات البحث ستجد العديد من المعلومات .

CIONO1

هناك حتى الأحلام أصبحت ممنوعة ...

إنه لعار أن ننتمي لهكذا أوطان ... لكن ... ربما العار أن نكون نحن أبناء لتلكم أوطان .. من يدري ؟!!

ليعلم أولئك ... إنّ الشعوب إنْ هي استيقظت تسحق ظُلامََهَا ...

There, even in dreams u r wanted

To be a programmer, how a nice dream it was

Leaving ...

أعيدوا لإسمي لونه المفضل

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

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