Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.11.2008, 18:43   #1
Anatol_rus
Пользователь
 
Регистрация: 30.09.2008
Сообщений: 33
По умолчанию Как по пути опредилить файл это или папка

Народ подзабыл чуток,не напоните??
Вот код для перетаскивания файлов в окно приложения-
ет у нас в обработчике OnCreate:
DragAcceptFiles(Handle, true);
Ето в описании класса TForm:
protected
procedure WMDropFiles (var Msg: TMessage); message wm_DropFiles;

А в эту процедуру она заходит при отпускании левой кнопки мыши:
procedure TForm1.WMDropFiles(var Msg: TMessage);
var
FileName: array[0..256] of char;
begin
DragQueryFile(THandle(Msg.WParam), 0, FileName, SizeOf(Filename));
//Делаем то что нам надо
DragFinish(THandle(Msg.WParam));
end;

Так вот в FileName передается путь перетаскиваемого файла(или папки)
и у меня - есть ли процедура в Delphi 7 опредиляющая файл это или папка??
Anatol_rus вне форума Ответить с цитированием
Старый 06.11.2008, 19:17   #2
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

faDirectory - атрибут файла
mihali4 вне форума Ответить с цитированием
Старый 07.11.2008, 11:51   #3
Anatol_rus
Пользователь
 
Регистрация: 30.09.2008
Сообщений: 33
По умолчанию

Всем спасибо разобрался сам
Для етого сгодится FileExists
Anatol_rus вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Что же это, бага vs2005, или VC++ 6.0? evil_factory Visual C++ 1 24.07.2008 22:30
как опредилить програмно подключен ли сетевой кабель в сетевуху? Zloy_Doomer Работа с сетью в Delphi 1 13.06.2008 19:39
это вирус или кривые руки? AngelOfDeath Безопасность, Шифрование 4 03.06.2008 14:04
(Это снова я) Как записать в файл? Air Общие вопросы Delphi 5 03.05.2007 20:36
кто нить это знает или нет ?! SALEM БД в Delphi 1 24.11.2006 16:32