delphi4arab منتديات دلفي للعرب
كيف أصنع مثل برنامج الـ Run - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أصنع مثل برنامج الـ Run (/showthread.php?tid=460)

كيف أصنع مثل برنامج الـ Run - عبدالله زعرور - 21-01-2009

كيف أن أضع أداة edit و button حيث أكتب مسار ما في edit وتقوم button بفتحه عند القر عليها
يعني مثل الـ Run
وجزاك الله خيراً

كيف أصنع مثل برنامج الـ Run - مبتدأ جدا - 21-01-2009

السلام عليكم..
أضف العناصر كما في الصورة:
[صورة: jpg]
لاتنسى تضيف الدالة shellapi في قسم use
الشيفرات:
في زر ok
كود :
shellexecute(0,nil,pchar(combobox1.Text),nil,nil,1); combobox1.Items.Add(combobox1.text);
زر cancel
كود :
application.Terminate;
في زر browser
كود :
Opendialog.Execute; if Opendialog.FileName <> '' then combobox1.Text:=Opendialog.FileName;
في timer
كود :
if combobox1.Text = '' then button1.Enabled:=false else button1.Enabled:=true;
/حيث button1هو زر ok
في حدث keypress للمكون combobox1
إقتباس :if key=#13 then begin
shellexecute(0,nil,pchar(combobox1.Text),nil,nil,1);
combobox1.Items.Add(combobox1.text);
end;

-اضبط interval لـ timerعلى 100 مثلا
وقارن بين برنامجك وبين run windows
دعواتك..

كيف أصنع مثل برنامج الـ Run - nabilkeb - 22-01-2009

رائع ، بــــارك الله فيك أخي ، ولكني أرى لو تضع : الكود :
كود :
if combobox1.Text = '' then button1.Enabled:=false else button1.Enabled:=true;
في الحدث Onchange لــ Combobox أحسن من التايمر من حيث استهلاك موارد النظام .
و الله على و أعلم.

كيف أصنع مثل برنامج الـ Run - مبتدأ جدا - 22-01-2009

nabilkeb
الرأي ما ترى ..والله تعالى اعلى وأعلم.

كيف أصنع مثل برنامج الـ Run - musvc - 22-01-2009

كلام الأخ nabilkeb صحيح فأنا منذ كنت مبتدأ كنت اضعها في التايمر مما كان يسبب لي الكثير من الأخطاء

كيف أصنع مثل برنامج الـ Run - مبتدأ جدا - 22-01-2009

musvc
لم أقل عكس ذلك.
+ ليكن التطبيق أحسن:
في الخاصية filter لاختيار انواع الملفات المراد فتحها ولاحداث تطابق اكثر مع run الويندوز للكائن اضغط على ثلاث نقاط (...) يظهر لك الجدول ذو العمودين file name ضعها فيها programmes والعمود filter ضع فيه exe.*
نفذ الآن واضغط على parcourir وشاهد التغيرات.

كيف أصنع مثل برنامج الـ Run - محمد عبد العزيز - 23-01-2009

nabilkeb كتب :
كود :
if combobox1.Text = '' then button1.Enabled:=false else button1.Enabled:=true;
في الحدث Onchange لــ Combobox
يمكن اختصارها
PHP كود :
button1.Enabled := combobox1.Text <> ''; 


كيف أصنع مثل برنامج الـ Run - musvc - 24-01-2009

DeltaAziz كتب :يمكن اختصارها
PHP كود :
button1.Enabled := combobox1.Text <> ''; 

انت دائما ً خير في مجالات الأختصار Cool