Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];

Вниз

Путь к каталогу   Найти похожие ветки 

 
Лана Розанова   (2001-10-11 12:07) [0]

Как узнать полный путь к файлу?


 
Dimka Maslov   (2001-10-11 12:15) [1]

В каком смысле полный путь?


 
@andrew   (2001-10-11 12:17) [2]

Не совсем понятен вопрос, но я попробую.

Если речь идет о том, что есть в текущем каталоге программы файл, то
GetCurrentDir
возвратит имя текущей директории, к которому можно добавить имя файла
и получить собственно все имя.

Плюс есть всякие функции типа ExtractFileName, ExtractFileExt ....FileDir и т.д. Смотри help на них


 
Anatoly Podgoretsky   (2001-10-11 21:58) [3]

В общем случае - никак, а в конкретном нужно уточнение, согласно Dimka Maslov


 
Вадим   (2001-10-11 23:19) [4]

>GetCurrentDir
Она может вернуть другую папку.

Возможно ParamStr(0) или Application.ExeName, что одно и то же


 
Anatoly Podgoretsky   (2001-10-13 00:39) [5]

кто спрашивал про текущий каталог или про каталог с программой, есть фопрос про ФАЙЛ, например readme.txt неизвестно где расположенный. Можешь ответить на этот вопрос?


 
Ketmar   (2001-10-13 07:29) [6]

запросто :-) делаем поиск по всему диску. для дополнительной аутентичности можно сравнивать размеры/время/CRC/MD5.

Satanas Nobiscum!


 
foks   (2001-10-13 13:25) [7]

Можете попробовать данный пример
Суть в перетаскивании файла на форму и в переменной FileName окажется весь путь и имя файла.

Первое, что вы должны сделать, - сообщить системе Windows о том, что ваша программа готова обрабатывать файлы, перемещенные из другого приложения с помощью мыши. Для этого достаточно включить в обработчик события OnCreate формы следующее выражение:

DragAcceptFiles(Handle,True);

Кроме того вы должны указать модель ShellAPI в директиве uses.



Для любого окна, в котором была вызвана процедура DragAcceptFiles, справедливо следующее. Когда вы перетаскиваете имя файла на ваше приложение и отпускаете кнопку мыши, Windows посылает этому окну сообщение wm_DropFiles. Сооьщение сопровождается именем файла. Обработчик этого сообщения нужно включитьв защищенный раздел класса формы. например, в объявлении класса формы между ключвыми словами private и public добавьте следующие строки:

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));
{Теперь в переменной Filename будет находиться путь
к перетаскиваемому файлу. Далее вы можете выполнять с этим файлом, зная
его путь, все что угодно.}


 
alexcom14   (2001-10-16 20:24) [8]

А чем этот файл определяется? Только именем? Кто на него
указывает.



Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.004 c
14-90355
limon
2001-12-03 18:31
2002.01.28
Пример диалога со службой технической поддержки


7-90403
Ph.D.Kot
2001-10-11 08:56
2002.01.28
Отправка факса через модем. Хелп.


4-90424
Shmel
2001-11-29 02:01
2002.01.28
ЕСТЬ Проблема!!!!


7-90388
Sergy
2001-10-17 11:36
2002.01.28
Опять модем!


3-90190
Сергей Щ.
2001-12-23 00:40
2002.01.28
Как паковать таблицу ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский