Главная страница
    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
3-90241
Грифон
2001-12-22 00:59
2002.01.28
возникла следующая проблемка:


3-90193
AndyDu
2001-12-22 20:19
2002.01.28
Как програмно пометить необходимые записи в DBGrid, чтоб потом пользовать SelectedRows ?


3-90216
OlegD
2001-12-24 18:45
2002.01.28
ADO table


3-90209
Aquarius
2001-12-24 14:52
2002.01.28
Почему выборка в MSSQL 2000 возвращает Еоf? >>>


1-90269
ctapik-net
2002-01-09 21:11
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский