| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
FindNextFile [D7, WinXP]
Winni © (2007-12-29 12:00:00)Здравствуйте!
Подскажите пожалуйста - где найти
пример использования функций WinAPI
FindFirstFile и FindNextFile ?
Пытался сделать процедуру:
--------------------------------
procedure TForm1.btnGetSpaceClick(Sender: TObject);
Var F: TSearchREc; Fa: Integer; FH,FH2: THandle; ii:integer;
FD: TWIN32FindData; FileNam: pChar; FN: string;
begin
CurrentDir := DirectoryListBox1.GetItemPath
(DirectoryListBox1.ItemIndex);
Label1.Caption := CurrentDir;
FileNam:= pChar(CurrentDir+'\*.*');
Fa := faAnyFile; // атрибуты искомых файлов - любые;
FH := FindFirstFile(FileNam,FD);
Memo1.Lines.Append( 'HandleFirst= '+IntToStr(Cardinal(FH)));
while FindNextFile(FH2,FD) do
begin
Memo1.Lines.Append( 'Handle= '+IntToStr(Cardinal(FH2)));
showmessage(IntToStr(Cardinal(FH2)));
end;
... и т д ....
FH := FindFirstFile(FileNam,FD);
MetalFan (2007-12-29 21:36:00) [1]ах, ну да... что за FH2 ???
MetalFan (2007-12-29 21:35:00) [2]
> Пытался сделать процедуру
и что с ней не так?
Сергей М. (2007-12-29 12:12:00) [3]
> где найти
> пример использования функций WinAPI
> FindFirstFile и FindNextFile ?
В стандартной справке
| |
