пишу текстовик. как открыть файл на лету?

[Deceased]

День добрый.

Пишу текстовый редактор наподобие виндосовского notepad.exe

у меня на форме: mainmenu1, opendialog1, savedialog1, memo1.
простейшие функции: открыть-редактировать сохранить.

вопрос: как сделать так, чтобы когда я скомпилирую файл (mynotepad.exe) открывал текстовые документы на лету?
В смысле, тыкаю на 123.txt правой кнопкой- открыть с помощью - mynotepad.exe - должна открываться программа, содержимое должно подгружаться в memo1, как так сделать?

заранее спасибо.

[Granus]

имена файлов передаются ЕХЕ как параметры
paramCount - их кол-во
paramstr(i) - параметр номер i

[Granus]

Memo1.Lines.LoadFromFile(ParamStr(1));

ParamStr(0) - сама прога

[mihali4]

Чуть побольше внимательности - посмотреть похожие темы.
Там все расписано:
Как открыть файл своей программой
http://programmersforum.ru/showthread.php?t=2660

[Granus]

не забудь проверить, были ли переданы какие то параметры

if ParamCount>0 then...

иначе ошибка будет)

[Deceased]

Granus, спасибо за подсказку.
только вот, непонятка выходит,
никак не работает как если кроме просто написать

memo1.Lines.LoadFromFile(paramstr(1));

безо всяких If

если ставить if ParamCount>0 then ничего не произойдёт.
Вы не могли бы немного это прокоментировать?


mihali4, сорри, пропустил тему. да там тоже не особо..

[Granus]

  if ParamCount>0 then
    Memo1.Lines.LoadFromFile(ParamStr(1));

должно работать)
если не пашет, скинь исходник

[Deceased]

Короче выявил такую штуку.
Если запускать в делфе с условием if ParamCount>0 then то всё будет нормально. Если откомпилировать с этим условием - то при открытии с помощью готового экзешника ничего в мемо из файла импортироваться не будет.

Если параметр if ParamCount>0 then не вставлять, то при запуске в делфе он будет выдавать ошибки, но если таким образом скомпилировать - всё будет работать на ура.

Исходники прилагаю, но там ничего интересного, только то что я сказал.

[Granus]

то при открытии с помощью готового экзешника ничего в мемо из файла импортироваться не будет.

просто открытии?)
чисто ЕХЕшника, без файлов?)

[Granus]

как вариант, на всякий случай

  try
    Memo1.Lines.LoadFromFile(ParamStr(1));
  except
  end;