VPF::Как найти путь к файлу? - Форум программистов

VictorBondarenko

Дата 17.8.2007, 11:57 (ссылка)

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

Загрузка ...

Шустрый

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

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

Уважаемые друзья!
Может быть кто-то подскажет.
Дано имя файла. Нужно из проги найти к нему путь и записать его в строку, если, конечно, такой файл есть на винте, а если нет, то что-то вразумительное сказать.
Я нашел описание функции SearchTreeForFile,
которя вроде бы должна это делать, но Delphi 7.0 ее в упор не видит.
Ошибка нераспознанная функция.
Может быть есть какие-либо другие варианты или идеи, а может и кусок кода у кого-то есть.

С благодарностью за помощь,
Виктор

Rennigth

Дата 17.8.2007, 12:01 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 49
Всего: 76

VictorBondarenko, поиск по данному форуму по ключевым словам FindFirst/FindNext. найдешь много чего интересного.

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

(* Honesta mors turpi vita potior *)

ne0n

Дата 17.8.2007, 12:04 (ссылка)

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

Загрузка ...

PlayBoy

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 5.8.2005
Где: Н.Новгород

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

в поиск FindFirsrt, FindNext!

Это сообщение отредактировал(а) ne0n - 17.8.2007, 12:05

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

http://sa-sec.org
как я вам? smile

bems

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

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

Загрузка ...

Эксперт

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

Репутация: 31
Всего: 88

Цитата(VictorBondarenko @ 17.8.2007, 11:57

)

Я нашел описание функции SearchTreeForFile,
которя вроде бы должна это делать, но Delphi 7.0 ее в упор не видит.

Код


uses ImageHlp

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

Обижено школьников: 8

Yanis

Дата 17.8.2007, 15:07 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 72
Всего: 111

Код

(*
The SearchTreeForFile function is used to search a tree for a specified file.

BOOL SearchTreeForFile(
    IN LPSTR RootPath,
    IN LPSTR InputPathName,
    OUT LPSTR OutputPathBuffer
   );
*)
uses ImageHlp;

{ for example }

var
  str: PAnsiChar;
  b: Boolean;
begin
  WinExec('cmd /C mkdir c:\test\a\b\c\d\e\f\', SW_HIDE);
  WinExec('cmd /C cmd /? > c:\test\a\b\c\d\e\f\cmd_help.txt', SW_HIDE);

  ShowMessage('File created... maybe... :)');

  str := GetMemory(MAX_PATH);
  b := SearchTreeForFile('c:\test\', 'cmd_help.txt', str);
  ShowMessage('Founded: ' + BoolToStr(b, True) + #13#10 + 'Path: ' + '"' + str + '"');
  FreeMemory(str);
end;

Это сообщение отредактировал(а) Yanis - 17.8.2007, 15:07

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

*щёлк*

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