كيف أصنع مثل برنامج الـ Run

[عبدالله زعرور]

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

[مبتدأ جدا]

السلام عليكم..
أضف العناصر كما في الصورة:

لاتنسى تضيف الدالة 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
دعواتك..

[nabilkeb]

رائع ، بــــارك الله فيك أخي ، ولكني أرى لو تضع : الكود :

كود :

if combobox1.Text = '' then button1.Enabled:=false else button1.Enabled:=true;

في الحدث Onchange لــ Combobox أحسن من التايمر من حيث استهلاك موارد النظام .
و الله على و أعلم.

[مبتدأ جدا]

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

[musvc]

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

[مبتدأ جدا]

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

[محمد عبد العزيز]

كود :

if combobox1.Text = '' then button1.Enabled:=false else button1.Enabled:=true;

في الحدث Onchange لــ Combobox

يمكن اختصارها

PHP كود :

button1.Enabled := combobox1.Text <> ''; 


[musvc]

يمكن اختصارها

PHP كود :

button1.Enabled := combobox1.Text <> ''; 


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