Komut ekleme

[Lord_Ares]

merhaba

arkadaşlar, iki tane listbox, bir tane label var. Listboxların birinde çalıştıralacak programın adı ( örnek : hesapmakinesi), ikincisi de programın yolu ( Örnek: C:\ calc.exe) kayıtlı.
Label 'ın captionında listboxta seçtiğim kaydı gösteriyorum.

kullanım şeklimde şu şekilde ( aşağıda sorumun daha kolay anlaşılması için 'if label1.caption= ' ifadesini kullandım. )

if label1.caption ='hesapla' then begin WinExec('calc.exe',SW_NORMAL) end;

kullanıcı program eklemek isterse diye iki adet edit koydum. birinci edit program adını, ikinciside yolunu ilglili listboxlara ekliyor.

sorun şurda
kullanıcı yeni program eklediğinde, program kodunu oluşturmak istiyorum.

mesela kullancı msn programanı listeye eklediğini düşünelim. ekle buttonunu tıkladığında ilgili componentin eventına şu kodu üretip eklemeyim

if label1.caption ='msn' then begin WinExec('msnsgr.exe',SW_NORMAL) end;

kısacası programım çalışırken bir buttonun oncilik eventsına istediğim kodu ekleyebilirmiyim

teşekkürler

[aslangeri]

s.a.
winexec de programın yolunu ve adını listbox dan aldığınız zaman işlem istediğiniz şey hallolur.
şöyle bir örnek vereyim.
ikitane listbox var.
birinde kullanıcının verdiği ad diğerinde programın yolu ve adı.
kullanıcı listboxdan programın adına ikik kere tıkladığı zaman

Kod: Tümünü seç

WinExec(pchar(listbox2.items[listbox1.itemindex]),SW_NORMAL)

kolay gelsin.

[Lord_Ares]

hocam teşekkürler