Форум: "Основная";
Текущий архив: 2003.11.20;
Скачать: [xml.tar.bz2];

Вниз

РАбота с TListBox открытие файла   Найти похожие ветки 

← →
programmerts   (2003-11-11 11:01) [0]

У меня вопрос по компоненту TListBox никак не могу понять как мне можно добавить туда название программы, через диалог открытия файла и чтобы потом он открывался при нажатии кнопки открыть открывалась выбранная программа. Пожалуйста помогите. Заранее благодарен.

---

← →
F1   (2003-11-11 11:05) [1]

А у меня вопросик: Как написать программу, которая бы за меня все писала... Что конкретно не понятно? Пробовал пример посмотреть или в хелп залезть?

---

← →
Плохиш_   (2003-11-11 11:10) [2]

>F1 (11.11.03 11:05) [1]

А зачем, а форум на что, если все будут в хелп лазить и примеры смотреть?
Ты ещё предложи головой подуматы ;-)

---

← →
alena.svt   (2003-11-11 18:55) [3]

Положте на форму две кнопки(TButton),ListBox(TListBox), и Диалог выбора файла(TOpenDialog)
Певой кнопке Button1 присвойте Caption - Выбрать програму
Второй кнопке Button2 - Запустить программу

Теперь подключите модуль ShellApi дописав его к модулям
Например
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ShellApi;

Далее в событии OnClick для Button1 напишите


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


в событии OnClick для Button2 напишите

procedure TForm1.Button2Click(Sender: TObject);
begin
try
ShellExecute(0,"open",PChar(ListBox1.Items.Strings[ListBox1.ItemIndex]),nil,nil,SW_SHOWNORMAL);
except
// Здесь можно ничего не писать игнорировав ошибку
// и обойтись IF Then дабы вообще о ней не думать
// но на будущее придется подумать о блоках Try Except
on EStringListError do
ShowMessage("Ничего не выбрано");
end;
end;


---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.11.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.012 c