VPF::Переместить только Тэ Икс Тэ - Форум программистов

Pavelbej

Дата 14.7.2005, 22:12 (ссылка)

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

Загрузка ...

Опытный

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

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

Файлы ".txt" я открываю перемещая их на свою программу. Как зделать чтобы программа ни на что не реагировала кроме ".txt". Вот код, помогите...

Код


procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
var
  CFileName: array[0..MAX_PATH] of Char; // переменная, хранящая имя файла
begin
 try
 If DragQueryFile(Msg.Drop, 0, CFileName, MAX_PATH)> 0 then // получение пути файла
  begin
  Form1.Caption:=CFileName; // имя файла в заголовок окна
  Memo1.Lines.LoadFromFile(CFileName); // открываем файл
  Msg.Result := 0;
end;
 finally
      DragFinish(Msg.Drop); // отпустить файл
end;
end;

Illusion Dolphin

Дата 14.7.2005, 22:31 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Так?

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  CFileName: array[0..MAX_PATH] of Char; // переменная, хранящая имя файла
  Msg: TWMDropFiles;
begin
 try
  If DragQueryFile(Msg.Drop, 0, CFileName, MAX_PATH)> 0 then // получение пути файла
  begin
   if '.txt'=AnsiLowerCase(ExtractFileExt(CFileName)) then
   begin
    Form1.Caption:=CFileName; // имя файла в заголовок окна
    Memo1.Lines.LoadFromFile(CFileName); // открываем файл
   end;
   Msg.Result := 0;
  end;
 finally
  DragFinish(Msg.Drop); // отпустить файл
 end;
end;

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

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

Bes

Дата 15.7.2005, 06:26 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: 5
Всего: 7

Цитата

Я так и не понял что это? smile

Akella

Дата 15.7.2005, 10:26 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Цитата(Bes @ 15.7.2005, 06:26)

Я так и не понял что это?

он из проводника перетаскивает на форму своей программы файлы. Емиу нужны только текстовые файлы, верне файлы с расширением .txt

Bes

Дата 15.7.2005, 10:58 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: 5
Всего: 7

т.е. вопрос по сути как определить наличие подстроки ".txt" в строке? smile

как как pos-ом

Pavelbej

Дата 15.7.2005, 23:37 (ссылка)

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

Загрузка ...

Опытный

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

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

Illusion Dolphin

Большое спасибо, все работает.

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