Главная страница
    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.046 c
2-1175540005
Washington
2007-04-02 22:53
2007.04.22
Завершение проги


15-1174698700
Fantasy
2007-03-24 04:11
2007.04.22
Хостинг


15-1175006565
oldman
2007-03-27 18:42
2007.04.22
Почему мы так поступили?


2-1175246658
VEZ
2007-03-30 13:24
2007.04.22
F1


15-1175179508
eXPell
2007-03-29 18:45
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский