Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.07.2010, 15:51   #1
Nater
Пользователь
 
Регистрация: 23.05.2009
Сообщений: 59
По умолчанию Запуск программы через файл.

Даже не знаю как это назвать,но вот например стандартный блокнот
загружает в свое поле текст из .txt файла если этот файл открыть не через файл >> открыть, а просто кликнув по файлу. как реализовать подобное в своей программе?

Вот эту процедуру я использую для открытия файла:
Цитата:
procedure TMainUnit.Open1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
ListInfo.Strings.Clear;
ListInfo.Strings.LoadFromFile(OpenD ialog1.FileName);
Edit1.Text:=ListInfo.Strings[0];
Edit2.Text:=ListInfo.Strings[1];
Edit9.Text:=ListInfo.Strings[2];
Edit3.Text:=ListInfo.Strings[3];
Edit4.Text:=ListInfo.Strings[4];
Edit5.Text:=ListInfo.Strings[5];
Edit6.Text:=ListInfo.Strings[6];
Edit7.Text:=ListInfo.Strings[7];
Edit8.Text:=ListInfo.Strings[8];
Panel1.Color:=StrToInt(Edit1.Text);
end;
end;
Nater вне форума Ответить с цитированием
Старый 25.07.2010, 16:34   #2
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

Посмотрите здесь: http://www.programmersforum.ru/showthread.php?t=73734
Всегда рад помочь!
Terran вне форума Ответить с цитированием
Старый 25.07.2010, 16:49   #3
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

Код:
StringList.LoadFromFile(ParamStr(1));
Перетяните текстовый файл на значек Вашей программы и развлекайтесь.
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума Ответить с цитированием
Старый 25.07.2010, 18:46   #4
Nater
Пользователь
 
Регистрация: 23.05.2009
Сообщений: 59
По умолчанию

Спасибо всем за помощь,все работает!
Nater вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Запуск программы по двойному клику на файл! SoftKoc Общие вопросы Delphi 15 04.12.2009 22:53
Запуск процедуры через указатель. Alex Cones Общие вопросы Delphi 4 16.11.2009 11:39
Запуск .exe через Delphi bookkc Общие вопросы Delphi 5 17.06.2009 16:59
Запуск запроса из БД Access через С# AnnNet Общие вопросы .NET 1 20.05.2009 16:31
Запуск программы на выполнение из другой программы. ViNcHeStEr Паскаль, Turbo Pascal, PascalABC.NET 6 18.06.2008 14:33