Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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
15-1174217909
xayam
2007-03-18 14:38
2007.04.22
Самая сложная программа ))


15-1175239220
Ketmar
2007-03-30 11:20
2007.04.22
не дали пообщаться...


3-1170074792
Petrovsky
2007-01-29 15:46
2007.04.22
Замучила "Неопознанная ошибка"


3-1170430978
s_t_d
2007-02-02 18:42
2007.04.22
QReport в Delphi 7. Как получить доступ к элементам?


2-1175232123
Merry
2007-03-30 09:22
2007.04.22
Вызов процедуры





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский