![]() |
|
|
|
|
#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
|
||||
|
||||
|
да первый вариант отлично работает и с пробелами и без них
![]() |