ListBox, запуск программ

[artemavd]

Добрый день! Вот у меня есть на форме компоненты: две кнопки, listbox. Подскажите пожалуйста как можно сделать так, чтобы когда я нажав на кнопку в своей программе, мог найти и взять (через диалоговое окно) какой нибудь ехе-шный файл какой то программы, и после того как я его выбрал, то этот бы файл поместился в listbox (или его путь, незнаю как правильнее сказать), потом нажать на другую кнопку и эта программа бы запустилась бы. Как это можно сделать? Может у кого то есть какие нибудь наработки в этом плане?

[SERG1980]

uses ShellAPI
добавте OpenDialog (можно настроить фильтр на *.EXE)

procedure TForm1.Button1Click(Sender: TObject);
begin
if form1.OpenDialog1.Execute then
form1.ListBox1.Items.Add(form1.OpenDialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShellExecute(Handle,'open',PChar(form1.ListBox1.Items.Strings[form1.ListBox1.ItemIndex]),nil,nil,SW_SHOW)
end;

[artemavd]

SERG1980, спасибо дружище!!)) Ты в очередной раз мне помог. А вот такой вопрос еще возник по ходу работу: как сделать, чтобы к имени файла в listbox добавлялась еще иконка приложения? И вообще, можете привести пример кода, который бы показывал как в Windows работает пункт меню "Вид"? То есть как можно изменить вид отображения названия файлов: список, значок и т.д. В принципе на второй вопрос в этом посте если не хотите отвечать, то можете не отвечать, просто, чисто для интереса и так сказать эрудиции любопытно)). Может знаете про первый вопрос? Чтобы красивее было)

[SERG1980]

Вот пример как вывести на форму, просто времени щас нет

procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
Icon: TIcon;
begin
Icon := TIcon.Create;
if form1.OpenDialog1.Execute then
form1.ListBox1.Items.Add(form1.OpenDialog1.FileName);
Icon.Handle:=ExtractIcon(0,PChar(OpenDialog1.FileName),0);
form1.Canvas.Draw(1,1, Icon);
Icon.Free;

[artemavd]

Ваш код я понял, но это немного не то, что нужно. Надо, чтобы значок был рядом (слева) с той программой, которая только что была открыта. Чтобы выглядело как в любом стандартном окне Windows (окно открытия, сохранения и т.д). Там отображается и иконка программы и само название программы. Вот что мне надо.

[Alter]

Если листбох, сделайте отрисовку строк вручную, как вам нужно.
Непонятно:

Надо, чтобы значок был рядом (слева) с той программой, которая только что была открыта.

Это как должно выглядеть?

[artemavd]

Если листбох, сделайте отрисовку строк вручную, как вам нужно.

в него и выводится у меня список программ выбранных. как сделать эту самую отрисовку?)

Надо, чтобы значок был рядом (слева) с той программой, которая только что была открыта.
Это как должно выглядеть?

Должно выглядеть также как это сделано в Windows. Выберите в Delphi команду File-Open вашему взору откроется диалоговое окно. Посмотрите как там расположены документы. Если выбрать отображение их как "список", то они и отображаются как список. Слева значок папки например, справа от него имя папки.