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

Вниз

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

 
Winni   (2007-12-29 12:00) [0]

Здравствуйте!

Подскажите пожалуйста - где найти
пример использования функций 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);


 
Сергей М. ©   (2007-12-29 12:12) [1]


> где найти
> пример использования функций WinAPI
>  FindFirstFile и FindNextFile ?


В стандартной справке


 
MetalFan ©   (2007-12-29 21:35) [2]


> Пытался сделать процедуру

и что с ней не так?


 
MetalFan ©   (2007-12-29 21:36) [3]

ах, ну да... что за FH2 ???



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

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

Наверх




Память: 0.47 MB
Время: 0.017 c
15-1221024724
Vlad Oshin
2008-09-10 09:32
2008.11.02
BDS2006, палитра компонент, как упорядочить внутри вкладки по афл


2-1222350296
tytus
2008-09-25 17:44
2008.11.02
idFTP - как скачать файл с определенной позиции


15-1221061690
Tricky_
2008-09-10 19:48
2008.11.02
Удаленная работа, или как заставить программиста работать


2-1221635322
Amid
2008-09-17 11:08
2008.11.02
Как соединить 2 файла BMP ?


15-1220722887
AlexDan
2008-09-06 21:41
2008.11.02
Экранная клавиатура..