путьк файлу

← →
Салават (2005-06-10 12:44) [0]

Как определить путь к файлу если задано его имя (попросту поиск в системных папках), FindExecutable ишет только не .lnk .

← →
-=XP=- © (2005-06-10 12:45) [1]

Зачем его искать?

← →
Салават (2005-06-10 12:46) [2]

>-=XP=-
нуна

← →
-=XP=- © (2005-06-10 13:11) [3]

Ответ неверный.

← →
Салават (2005-06-10 13:21) [4]

это почему

← →
ssk © (2005-06-10 13:31) [5]

файлов с одинаковыми именами может быть несколько

← →
Салават (2005-06-10 13:32) [6]

или хотя бы скажите где можно узнать о системных папках.

← →
Салават (2005-06-10 13:34) [7]

>ssk
это то да но если набрать в меню пуск->выполнить заработает один файл

← →
ssk © (2005-06-10 13:36) [8]

но если набрать в меню пуск->выполнить заработает один файл

да? ну и набери "readme.txt"... о результатах работы скажешь.

← →
Салават (2005-06-10 13:39) [9]

>ssk
я говорю о .exe или .lnk

← →
Салават (2005-06-10 13:41) [10]

>ssk
да? ну и набери "readme.txt"... о результатах работы скажешь.
если он существует он откроется

Салават (10.06.05 13:32) [6]
GetWindowsDirectory, GetSystemDirectory + F1

FindExecutable ишет только не .lnk

Попробуйте вписать .lnk в переменную среды PathExt.

← →
den_777 (2005-06-10 15:24) [13]

функция из WinApi называется SearchPath

>Салават

вот то, что тебе надо.
как-то была надобность искать файл Regsvr32.exe в папке Windows. причем в 98 и 2к + хр он находится в разных местах...

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

var RG32EXE: string; procedure FindingRegsvr32(StartDir: string); var SearchRec: TSearchRec; begin StartDir := IncludeTrailingPathDelimiter(StartDir); if FindFirst(StartDir + "*.*", faAnyFile, SearchRec) = 0 then repeat if (SearchRec.Name <> "..") and (SearchRec.Name <> ".") then if (SearchRec.Attr and faDirectory) <> faDirectory then if AnsiUpperCase(SearchRec.Name) = AnsiUpperCase("Regsvr32.exe") then begin RG32EXE := StartDir + "Regsvr32.exe"; Break; end else else FindingRegsvr32(StartDir + SearchRec.Name); until FindNext(SearchRec) <> 0; FindClose(SearchRec); end;

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