VPF::Использование проги для открытия файлов

FRAGNATIC

Дата 15.11.2004, 18:01 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11

Как сделать что бы прога открывала файлы
ну тоесть я в винде ставлю для просмотра тхт файлов свою прогу когда кликаю на тхт какомнибудь то открывается просто прога моя и всё файл при помощи проги моей не открывается smile

p0s0l

Дата 15.11.2004, 18:10 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

В ParamStr(1) должно содержаться имя txt-файла
Если не содержится, то значит неправильно ассоциировал свою прогу с .txt-файлом...

--------------------

С уважением, г-н Посол.

Vitalik

Дата 15.11.2004, 20:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Координатор проекта
Сообщений: 653
Регистрация: 8.11.2004
Где: Ukraine, Kharkov

Репутация: нет
Всего: 12

FRAGNATIC
Чтобы твою программу можно было ассоциировать с каким-либо типов файлов (например TXT), она должна обрабатывать передаваемый ей параметр(ы). Чаще всего в этом параметре просто указывается имя открываемого файла.

Из Delphi доступ к параметрам командной строки можно получить через функции ParamCount() (количество параметров) и ParamStr(i) (i-тый параметр).

В твоём случае я бы написал следующий обработчик события onCreate у формы:

Код

procedure TForm1.FormCreate(Sender: TObject);
var
  FileName: string;
  i: integer;
begin
  FileName := '';
  for i := 1 to ParamCount() do // Получение параметра - имени файла
    FileName := FileName + ParamStr(i);
  if not FileExists(FileName) then begin // Если файл не существует
    ShowMessage('ERROR! File "' + FileName + ' not exists.');
    Exit;
  end;
  Memo1.Lines.LoadFromFile(FileName); // Загрузка файла
end;

FRAGNATIC

Дата 15.11.2004, 22:45 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11

Спасибо

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »