Показать сообщение отдельно
  #2  
Старый 07.03.2009, 20:41
Аватар для Karsh
Karsh Karsh вне форума
Активный
 
Регистрация: 22.09.2007
Адрес: SPb
Сообщения: 228
Версия Delphi: 7, 2009, XE2
Репутация: 70
По умолчанию

Параметры запуска приложения можно "извлечь" с помощью функции ParamStr(Index: Integer): string.
Код:
ParamStr(0) - возвращает путь приложения
ParamStr(1) - возвращает первый параметр
Реализовать ваш случай можно так:
Код:
Memo1.Lines.LoadFromFile(ParamStr(1));
Есть еще функция ParamCount: Integer, которая возвращает кол-во параметров.
Соединив эти 2 функции получаем:
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
  If ParamCount > 0 then
    Memo1.Lines.LoadFromFile(ParamStr(1));
end;
__________________
Начинающий программист уверен, что в 1 килобайте 1000 байт.
Законченный программист уверен, что в 1 километре 1024 метра.
Ответить с цитированием