Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c
3-59021
Roma111
2002-10-29 13:25
2002.11.18
Создание собственного UDF (D6, Firebird)


1-59261
Xman
2002-11-07 09:54
2002.11.18
Немогу понять может поможете


6-59296
Aleksandr
2002-09-20 14:32
2002.11.18
Как подойти к работе с Прокси-серверами?


3-59071
Bishop
2002-10-30 16:27
2002.11.18
ОРС


1-59217
denis-a
2002-11-06 16:21
2002.11.18
Документация по компоненту Async Professional ver. 4 for Delphi




   Наверх