![]() |
|
|
#1
|
||||
|
||||
![]() пишу свой блокнот, когда в программе отрываю файл то весь текст загружается в ричЕдит, вообщем это то работает, вопрос такой:
если я правой кнопкой мыши кликаю по файлу и выбираю открыть с помощью моей программы, то программа тупо запускается и в ричЕдит ниче не заносится(ну подругому и быть не могло), вообщем как это сделать? ![]() знаете почему внизу эскалатора бабка в будке сидит? она там педальки крутит и лесенка едет! Последний раз редактировалось SerginhoLD, 05.06.2010 в 19:18. |
#2
|
|||
|
|||
![]() Обрабатывать параметры командной строки:
Код:
procedure TForm1.FormCreate(Sender : TObject); begin If ParamCount > 0 Then Begin If FileExists(ParamStr(1)) Then RichEdit1.Lines.LoadFromFile(ParamStr(1)); // тут на вскидку не помню, просто загрузка файла... End; end; |
#3
|
|||
|
|||
![]() Код такой вообщем-то рабочий, но если путь к файлу содержит пробелы?
Вот улучшенная процедура. Но это если путь к файлу - единственный возможный параметр. Код:
procedure TForm1.FormCreate(Sender : TObject); var I: Integer; Buf: String; begin If ParamCount > 0 Then for I := 1 to ParamCount do Begin Buf := Buf + ParamStr(i); If I < ParamCount then Buf := Buf + ' '; //Следующий параметр отделяется пробелом End; If FileExists(Buf) Then RichEdit1.Lines.LoadFromFile(Buf); end; |
#4
|
||||
|
||||
![]() да первый вариант отлично работает и с пробелами и без них
![]() знаете почему внизу эскалатора бабка в будке сидит? она там педальки крутит и лесенка едет! |