Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.20;
Скачать: CL | DM;

Вниз

РАбота с 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.028 c
1-65893
abc1
2003-11-11 15:51
2003.11.20
Перехват событий


1-65982
Senator
2003-11-10 17:56
2003.11.20
Работа с PageControl


3-65739
Mamed
2003-10-31 16:37
2003.11.20
DBexpress


1-65959
Kelvin
2003-11-10 21:21
2003.11.20
Таблица


3-65775
F...
2003-10-27 05:46
2003.11.20
Многопользовательский доступ к dbf из программ на Delphi