FindClose(hFind) - типы параметров не актуальны

[calypso]

Embarcadero Delphi XE2, не пойму в чем проблема.Написан стандартный код поиска файлов с использованием:
FindData:TWin32FindData;
hFind:THandle
В конце компилятор ругается на строку FindClose(hFind) - type of parameters must be actual
Причем если эту строку закомментировать,то поиск работает но не заканчивается (бесконечно)

[FaTaL]

Напиши полностью код поиска.

[calypso]

hFind:=FindFirstFile('*.bin',FindData);
if (hFind<>INVALID_HANDLE_VALUE) then
begin
  repeat
	  begin
  ListBox1.Items.Add(FindData.cFileName);
   ......something code....
              end;
      until (FindNextFile(hFind,FindData));
          FindClose(hFind);
	  CloseHandle(hFind);
	end

[Serge_Bliznykov]

дык, на оффсайте не пробовали смотреть?

не оно?
TSearchRec

var 
   FindData : TSearchRec;
   iFound : integer;
begin
iFound := System.SysUtils.FindFirst('*.bin', faAnyFile, FindData);
while iFound=0 do begin
  ....
  iFound := System.SysUtils.FindNext(FindData);
end;
System.SysUtils.FindClose(FindData)

[FaTaL]

Если Вы хотите сделать поиск всех файлов *.bin и занести их в листбокс то не проще ли сделать так:

var
  SR:TSearchRec;
  FindRes:Integer;
begin
  ListBox1.Clear;
  FindRes:=FindFirst(Папка для поиска + '*.bin', faAnyFile, SR);
  while findres = 0 do
    begin
      ListBox1.Items.Add(SR.Name)
      FindRes:=FindNext(SR);
    end;
  FindClose (SR);
end;

[calypso]

Ну вот с этим TSearchRec как раз путаница\непонимание\глюки компилятора\нужное подчеркнуть.
На с++ всё просто,там есть структура WIN32_FIND_DATA, hFind HANDLE и всё работает. Может быть FindClose хочет чтобы параметр был TSearchRec,а я ему даю THandle\hFile? Но есть примеры для дельфей где структура TWin32FindData и hFind является хэндлом

[FaTaL]

Конечно С++ отличается от Delphi. Вы бы ещё C# вспомнили, где всего то надо Directory.GetFiles(...)
Что Вам не нравится в моём примере или напишите конкретнее что Вы хотите сделать или чего добиться?