Главная страница
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.02 c
4-59513
Novichek
2002-10-05 21:33
2002.11.18
Можно ли развернуть/свернуть все проги нетрогая свою?


14-59348
Igorek
2002-10-25 10:40
2002.11.18
Непереведенные издания


1-59214
Pesh
2002-11-06 14:10
2002.11.18
Формат MP3 файлов


1-59146
pheonix_ash
2002-11-06 22:59
2002.11.18
Как компилировать проект так чтобы ЕХЕ потом *. BPL не просил


3-59025
DeLz
2002-10-29 18:22
2002.11.18
Может кто знает как в SQL передать параметер для IN (:ParamName)