كيف أصنع مثل برنامج الـ 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
دعواتك..