Главная страница
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.024 c
1-59087
iNew
2002-11-07 17:52
2002.11.18
Где оштбка? Делаю так:


6-59301
IGORka
2002-09-02 19:00
2002.11.18
Имя пользователя


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


7-59464
yem
2002-09-15 10:40
2002.11.18
модем? asyncpro???


14-59338
N A N
2002-10-29 09:01
2002.11.18
Есть ли сертификация по Дельфи?