List Box و کلیک روی هر جزء آن و باز کردن یک فایل

[ravanfar]

بزرگان سلام
من یک سوال دارم:
توضیح این که من روش باز نمودن یک فایل را در برنامه کاربردی خودم با کمک راهنمایی بزرگترها
یاد گرفتم حال سوالم این است که من در یک ListBox یک سری آیتمهایی را دارم که میخواهم با کلیک روی هر آیتم بتونم فایلم را باز کنم اون کدی که روی Event از نوع Onclick هر جز که باعث میشود فایل مربوطه باز شود چیه؟
ممنونم روانفر

[SReza1]

در onclick میتونی به کمک itemindex اون item رو که انتخاب کردی پیدا کنی و بهر حال اون اگه اسمه فایلی باشه کارتو روش بکنی

[_alish_]

FileN:=ListBox1.Items.String[ListBox1.ItemIndex]
حال بجای هر چی که خاصی از دستورات زیر استفاده کن

اجرای برنامه Demo.exe از دایرکتوری C:\app

ShellExecute(Handle,NIL,PChar('C:\apps\demo.exe'), nil,nil,SW_SHOWNORMAL);
البته با WinExec هم می شه
باز کردن فایل log.txt

ShellExecute(Handle,'open',PChar('c:\log.txt'), nil,nil,SW_SHOWNORMAL);

پخش فایل ending.mp3

ShellExecute(Handle,'play',PChar('c:\ending.mp3'), nil,nil,SW_SHOWNORMAL);

چاپ فایل log.txt

ShellExecute(Handle,'print',PChar('c:\log.txt'), nil,nil,SW_SHOWNORMAL);

باز کردن مروگر فایل ویندوز از C:\

ShellExecute(Handle,'explore',PChar('c:\'), nil,nil,SW_SHOWNORMAL);