Форум: "Начинающим";
Текущий архив: 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.46 MB
Время: 0.041 c