Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.18;
Скачать: CL | DM;

Вниз

FindFirstFile   Найти похожие ветки 

 
Beginer1 ©   (2002-10-07 16:35) [0]

НЕ ДОГОНЯЮ
СУТЬ: ИЩУ ФАИЛ ФУНКЦИЕЙ FindFirstFile ("*.doc" , //указываю что искать
//а тут не догоняю );

ПА-А-А-А-А-А-А-А-А-А-ГИТЕ!!!!!!!!!!!!!!


 
still ©   (2002-10-07 16:44) [1]

The WIN32_FIND_DATA structure describes a file found by the FindFirstFile or FindNextFile function.

typedef struct _WIN32_FIND_DATA { // wfd
DWORD dwFileAttributes;
FILETIME ftCreationTime;
FILETIME ftLastAccessTime;
FILETIME ftLastWriteTime;
DWORD nFileSizeHigh;
DWORD nFileSizeLow;
DWORD dwReserved0;
DWORD dwReserved1;
TCHAR cFileName[ MAX_PATH ];
TCHAR cAlternateFileName[ 14 ];
} WIN32_FIND_DATA;

Т.е. передается указатель на эту структуру.
Выделяешь память, заполняешь, и передаешь указатель.


 
Игорь Шевченко ©   (2002-10-07 16:51) [2]

А эта...ускоритель включить ? F1 называется


 
Beginer1 ©   (2002-10-07 17:57) [3]

Help"Ы цитировать мне не надо :(( , а вот still"у спасибо заноследнии две сточки (вот это я и не догонял), а может ещё подскажете мне какие-нибудь функции для поиска файлов , используя только uses Windows или вобще без него.


 
Leon_O ©   (2002-10-07 18:07) [4]

Попробуй по другому.
Вырезка с одной моей проги:



...................................................

var
FileAttrs: Integer;
SR: TSearchRec;
LogFileNames: TStringList;

....................................................

LogFileNames := TStringList.Create;
FileAttrs := faAnyFile;

.....................................................

if FindFirst("\*.csv", FileAttrs, SR) = 0 then
begin
LogFileNames.Add("\"+SR.Name);

while (FindNext(SR) = 0) do
begin
LogFileNames.Add("\"+SR.Name);

end;
end;
FindClose(SR);

........................................................

В LogFileNames будут записаны имена всех найденых файлов.



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

Текущий архив: 2002.11.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
7-59442
ovdolgov
2002-09-16 12:14
2002.11.18
Проблема с Async32


14-59373
Стрел
2002-10-29 23:22
2002.11.18
А нет ли здесь где-нибудь объяв О РАБОТЕ (постоянной)???


1-59244
Damage
2002-11-05 00:41
2002.11.18
Как прочитать свойства word-документа?


6-59299
Aralekin
2002-09-20 17:58
2002.11.18
Широковещательный пакет


14-59411
Vad
2002-10-31 03:42
2002.11.18
Зачистка анкет.