Показать сообщение отдельно
  #5  
Старый 26.06.2006, 20:53
Аватар для Keygenmusic
Keygenmusic Keygenmusic вне форума
Активный
 
Регистрация: 24.10.2005
Адрес: Там
Сообщения: 201
Репутация: 20
По умолчанию

2 Admin: А дальше?
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
if FileExists(ParamStr(1)) then
 Memo1.Lines.LoadFromFile(ParamStr(1));
end;

ф-ция ParamStr(х) берёт х-ый параметр командной строки. 0-й параметр это сам файл, который является прогой.
Ответить с цитированием