|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как открыть текстовый файл через...
Люди, подскажите, если кто знает как открывать например текстовые файлы через созданный мною редактор. Т. е. в винде открываем файл и он открывается через мой редактор, т.е. весь его текст загружается в мемо моей программы. Как? Наверное WinAPI... но у меня с ним плохо...
Как поставить для открытия текстоых файлов мою погу я знаю, но только она просто откроется и мемо будет пустым..., а мне нужно весь текст загрузить в него. Иначе говоря открываем текстовый файл и он отображается в мемо моего редактора...??? Как??? |
#2
|
||||
|
||||
Memo1.Lines.LoadFromFile('xxx.txt');
|
#3
|
|||
|
|||
:) Нет вы меня не поняли...
Цитата:
|
#4
|
||||
|
||||
На основании этого примера можно сделать чтобы текстовые файлы открывались твоей программой, просто надо немного подправить реестр...
Код:
// Зарегистрировать новый тип файлов uses Registry; public { Public declarations } procedure RegisterFileType(ext: string; FileName: string); // Описываем её так: procedure TForm1.RegisterFileType(ext: string; FileName: string); var reg: TRegistry; begin reg:=TRegistry.Create; with reg do begin RootKey:=HKEY_CLASSES_ROOT; OpenKey('.'+ext,True); WriteString('',ext+'file'); CloseKey; CreateKey(ext+'file'); OpenKey(ext+'file\DefaultIcon',True); WriteString('',FileName+',0'); CloseKey; OpenKey(ext+'file\shell\open\command',True); WriteString('',FileName+' "%1"'); CloseKey; Free; end; end; // Ну а по нажатию какого-нибудь батона регистрируем! procedure TForm1.Button1Click(Sender: TObject); begin RegisterFileType('DelphiWorld', Application.ExeName); end; |
#5
|
||||
|
||||
2 Admin: А дальше?
Код:
procedure TForm1.FormCreate(Sender: TObject); begin if FileExists(ParamStr(1)) then Memo1.Lines.LoadFromFile(ParamStr(1)); end; ф-ция ParamStr(х) берёт х-ый параметр командной строки. 0-й параметр это сам файл, который является прогой. Последний раз редактировалось Keygenmusic, 26.06.2006 в 21:26. |