ListBox ----- выполнить выделенную строку!

[Disday]

Всем привет!
Вот такой вот вопрос у меня...
В ListBox выводятса программы содержашиеся в указанной директории(это не важно).. и вот как сделать так чтоб при шелчке на строку в ListBox1 это программа выполнилась?? если есть какиенибудь предложения прошу поделится заранее благодарен...

[garik]

Программа всмысле ехе

[garik]

Если программу, то функция
ShellExecute(Handle, nil, Pchar(путь к программе), nil, nil, SW_SHOW);

[Altera]

Запускает EXE файл:
WinExec('C:\WINDOWS\NOTEPAD.EXE', SW_SHOWNORMAL);
Запускает определённый файл:
ShellExecute(Application.MainForm.H andle, nil, 'с:\boot.ini', '', 'с:\boot.ini', SW_SHOW);

[Terran]

Сообщение от Disday

Всем привет!
Вот такой вот вопрос у меня...
В ListBox выводятса программы содержашиеся в указанной директории(это не важно).. и вот как сделать так чтоб при шелчке на строку в ListBox1 это программа выполнилась?? если есть какиенибудь предложения прошу поделится заранее благодарен...

Можете сделать так:

Uses
  ShellApi;

Procedure TForm1.ListBox1Click(Sender: TObject);
Begin
ShellExecute(Application.Handle,'Open',PChar(ListBox1.Items[ListBox1.ItemIndex]),Nil,Nil,SW_SHOWDEFAULT);
End;

[Disday]

Не не парни может я не правильно обьяснил... шя поправлюсь!!! Представте ListBox там в каждой строке пути к программам!!! и надо сделать так чтоб при выделение любой строки тьфу ты не выделение а нажатие на любую строку запускалась программа соответствуяшая выбранной ссылки в компоненте LIstBox! ну типа я нажал на строчку и эта строчка выполнилась!!!!

зы. только exe!!!

[Terran]

Сообщение от Disday

Не не парни может я не правильно обьяснил... шя поправлюсь!!! Представте ListBox там в каждой строке пути к программам!!! и надо сделать так чтоб при выделение любой строки тьфу ты не выделение а нажатие на любую строку запускалась программа соответствуяшая выбранной ссылки в компоненте LIstBox! ну типа я нажал на строчку и эта строчка выполнилась!!!!

зы. только exe!!!

Гляньте выше, я привёл такой вариант

[Disday]

Спасибо канеш Terran работать то оно всё работает но ни могу понять почему из списка всех программ он запускает тока некоторые а не все!
вот например
E:\Программы\Удобности\punto switcher 2.9\punto switcher 2.9\Setup.exe
это он запустил
а это
не хочет((
E:\Программы\Удобности\Miranda Me Setup 0.9.1.exe

[Disday]

а да и ещё вопрос я забыл как знаки препинания ставить
FindFiles('E:\Программы\Удобности\' , '*.exe', ListBox1.Items, true);
вот чтоб вместо этой белеберды стояло типо
FindFiles('<Edit1.Text>', '*.exe', ListBox1.Items, true);
ну чтоб адресс самому можно было вводить вовремя выполнения программы!
я там знаки вроде не правильно поставил((( а как правильно не помню(((

[Terran]

Что касается запуска файлов, то некоторые могут не запускаться из за неправильно указанного пути или имени. По поводу функции

FindFiles('E:\Программы\Удобности\', '*.exe', ListBox1.Items, true);

то по этой строчке от кода я точно сказать не могу что именно нужно использовать, если бы вы выложили полный код, то я бы тогда точно мог сказать, а так попробуйте

FindFiles(Edit1.Text,'*.exe', ListBox1.Items, true);

или тоже самое только с указанием типов.