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

Вниз

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

← →
Салават   (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"... о результатах работы скажешь.
если он существует он откроется

---

← →
Zeqfreed ©   (2005-06-10 14:33) [11]

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

---

← →
-=XP=- ©   (2005-06-10 14:47) [12]

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

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

---

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

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

---

← →
ssk ©   (2005-06-10 18:18) [14]

>Салават

вот то, что тебе надо.
как-то была надобность искать файл 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;


---

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

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

Наверх

Память: 0.47 MB
Время: 0.038 c