просмотр папки на наличие новых фалйов

[Nerig]

Есть папка. Необходимо чтобы она с некоторой периодичностью просматривалась и при появлении новых файлов, название этих файлов заносились в memo. Помогите)

[Stilet]

Тебе стоит поискать примеры использования ReadDirectoryChanges или FindFirstChangeNotification
Кстати есть компоненты, мониторящие каталоги.
Более того на вкладке Samples, если она у тебя есть, есть такой компонент TShellChangeNotifier
Попробуй его.

[Nerig]

ReadDirectoryChanges а вот про нее подробнее можно, пример какой нибудь?
А то сам примеров хороших не нашел(

[Stilet]

Хм... Для Делфи я бы тебе свой компонентик дал...
Насчет си...
возможно: http://www.codeproject.com/KB/files/...gewatcher.aspx

[Nerig]

Stilet
Спасибо за ссылку) вроде хорошая вещь, но к сожалению этот класс у меня не хочет компилится. Да и не хотелось бы добавлять лишние классы к проекту.

[Nerig]

При нажатии на кнопку, никаких событий не происходит, а прога просто зависает. Подскажите в чем проблема?

void __fastcall TForm1::Button1Click(TObject *Sender)
{
HANDLE hdir = CreateFile("D:\\Temp",
              FILE_LIST_DIRECTORY,
              FILE_SHARE_READ|FILE_SHARE_WRITE,
              NULL,
              OPEN_EXISTING,
              FILE_FLAG_BACKUP_SEMANTICS,
              NULL);
FILE_NOTIFY_INFORMATION Buffer[1024];
DWORD BytesReturned;
while ( true)
{
int ret = ReadDirectoryChangesW(
        hdir,
        &Buffer,
        sizeof(Buffer),
        True,
        FILE_NOTIFY_CHANGE_SECURITY|
        FILE_NOTIFY_CHANGE_SIZE|
        FILE_NOTIFY_CHANGE_ATTRIBUTES|
        FILE_NOTIFY_CHANGE_DIR_NAME|
        FILE_NOTIFY_CHANGE_FILE_NAME,
        &BytesReturned,
        NULL,
        NULL
        );
switch(Buffer[0].Action)
  {
   case FILE_ACTION_ADDED:
    Memo1->Lines->Add("Файл добавлен");
    break;
   case FILE_ACTION_REMOVED:
    Memo1->Lines->Add("Файл удален");
    break;
   case FILE_ACTION_MODIFIED:
    Memo1->Lines->Add("файл изменен");
    break;
  }
}
CloseHandle( hdir );


}