Форум: "Основная";
Текущий архив: 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.011 c
