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

Вниз

отобразить все файлы находящиеся в папке   Найти похожие ветки 

← →
Dmitry_177   (2007-04-02 15:15) [0]

Как средствами WinAPI можно отобразить все файлы из папки?

---

← →
Leonid Troyanovsky ©   (2007-04-02 15:19) [1]

> Dmitry_177   (02.04.07 15:15)  

> Как средствами WinAPI можно отобразить все файлы из папки?

SendMessage LB_DIR

--
Regards, LVT.

---

← →
Dmitry_177   (2007-04-02 15:27) [2]

неправильно выразился... не отобразить а перечислить все файлы..

 if FindFirst(Path + "\*.*", faAnyFile, SR) = 0 then
   begin
     repeat
       if (SR.Attr <> faDirectory) then
         MessageBox(0, SR.Name, "", 0);
     until FindNext(SR) <> 0;
     FindClose(SR);
   end;

что-то вроде этого но на API..

---

← →
Сергей М. ©   (2007-04-02 15:36) [3]

> что-то вроде этого но на API


Чем VCL-то не угодила ?

Только, умоляю, не надо уже про "размер экзешника")..

---

← →
KSergey ©   (2007-04-02 15:42) [4]

> Dmitry_177   (02.04.07 15:27) [2]
> что-то вроде этого но на API..

А какие вызовы в приведенном примере не native API?

---

← →
Leonid Troyanovsky ©   (2007-04-02 15:49) [5]

> Dmitry_177   (02.04.07 15:27) [2]

> что-то вроде этого но на API..

FindFirstFile
FindNextFile
Windows.FindClose

--
Regards, LVT.

---

← →
Dmitry_177   (2007-04-02 15:51) [6]

Подскажите пожалуйста почему выводится только один файл и все...

procedure TForm1.Button1Click(Sender: TObject);
var
 hFound: THandle;
 wfnd: WIN32_FIND_DATA;
begin
 hFound := Windows.FindFirstFile("C:\*.*", wfnd);
 repeat
   if wfnd.dwFileAttributes <> FILE_ATTRIBUTE_DIRECTORY then
     ListBox1.Items.Add(wfnd.cFileName)
 until Windows.FindNextFile(hFound, wfnd);

 Windows.FindClose(hFound);
end;


---

← →
MBo ©   (2007-04-02 15:53) [7]

попробуй заглянуть в исходники FindFirst, иногда помогает

---

← →
Сергей М. ©   (2007-04-02 15:57) [8]

> Dmitry_177   (02.04.07 15:51) [6]


until NOT FindNextFile(..)

---

← →
Dmitry_177   (2007-04-02 16:02) [9]

Спасибо =)

---

← →
KSergey ©   (2007-04-03 10:12) [10]

> KSergey ©   (02.04.07 15:42) [4]
> А какие вызовы в приведенном примере не native API?
>
> Leonid Troyanovsky ©   (02.04.07 15:49) [5]
> FindFirstFile
> FindNextFile
> Windows.FindClose

Сорри, не вчитался в исходный пост

---

← →
Reindeer Moss Eater ©   (2007-04-03 10:18) [11]

An application sends an LB_DIR message to add a list of filenames to a list box.

LB_DIR  
wParam = (WPARAM) (UINT) uAttrs;          // file attributes
lParam = (LPARAM) (LPCTSTR) lpszFileSpec; // filename address

---

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

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

Наверх

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