компилятор ругается

← →
exo (2003-05-12 14:24) [0]

подскажите как обьявить PFileNotifyInformation функцию
а то она у меня не компелируется.
в хелпе ничего нет.

case PFileNotifyInformation(Ptr).Action of
FILE_ACTION_ADDED : Item.SubItems.Add("Файл был создан");
FILE_ACTION_REMOVED : Item.SubItems.Add("Файл был удален");
FILE_ACTION_MODIFIED : Item.SubItems.Add("Файл был изменен");
FILE_ACTION_RENAMED_OLD_NAME :
Item.SubItems.Add("Файл был переименован и в имени файла - предыдущее имя");
FILE_ACTION_RENAMED_NEW_NAME :
Item.SubItems.Add("новое имя после переименования");
else Item.SubItems.Add("Произошло что-то странное");

← →
Cobalt (2003-05-12 14:44) [1]

Откуда ты её взял-то?

← →
exo (2003-05-12 14:55) [2]

http://subscribe.ru/archive/comp.soft.prog.delphint/200209/13193328.html

← →
Serginio (2003-05-12 15:15) [3]

http://www.delphi.xonix.ru/download/filemon1/readdirchanges.zip

← →
exo (2003-05-12 15:18) [4]

мертвая ссылка

← →
exo (2003-05-12 15:20) [5]

Удалено модератором
Примечание: Тогда задавай вопросы по мылу

← →
Anatoly Podgoretsky (2003-05-12 15:26) [6]

В Д1-6 нет такой функции

← →
Serginio (2003-05-12 15:31) [7]

Тебе нужно отследить изменения в каталоге. У Пачеко в Delphi 4 был пример посмотри. Сейчас нет под рукой.

← →
Serginio (2003-05-12 16:27) [8]

ShellCtrls.pas
procedure TShellChangeThread.Execute;
var
Obj: DWORD;
Handles: array[0..1] of DWORD;
begin
EnterCriticalSection(CS);
FWaitHandle := FindFirstChangeNotification(PChar(FDirectory),
LongBool(FWatchSubTree), FNotifyOptionFlags);
LeaveCriticalSection(CS);
if FWaitHandle = ERROR_INVALID_HANDLE then Exit;
while not Terminated do
begin
Handles[0] := FWaitHandle;
Handles[1] := FMutex;
Obj := WaitForMultipleObjects(2, @Handles, False, INFINITE);
case Obj of
WAIT_OBJECT_0:
begin
Synchronize(FChangeEvent);
FindNextChangeNotification(FWaitHandle);
end;
WAIT_OBJECT_0 + 1:
ReleaseMutex(FMutex);
WAIT_FAILED:
Exit;
end;
EnterCriticalSection(CS);
if FWaitChanged then
begin
FWaitHandle := FindFirstChangeNotification(PChar(FDirectory),
LongBool(FWatchSubTree), FNotifyOptionFlags);
FWaitChanged := false;
end;
LeaveCriticalSection(CS);
end;
end;

← →
exo (2003-05-12 16:38) [9]

каким образом мона заменить эту функцию PFileNotifyInformation

← →
Serginio (2003-05-12 16:48) [10]

Это не функция а структура. Сходи на сишный форум или поищи в Windows SDK. А сишная структура называется по другому. А пример
TShellChangeThread позволяет отслеживать изменения в дириктории.

← →
exo (2003-05-12 17:47) [11]

FindFirstChangeNotification не показывает название файла а сравнивать весь
диск уходит полчаса времени.
кругом засада.
есть ли выход програмисты?

← →
Serginio (2003-05-12 18:04) [12]

Ты в инете поискать не можешь
typedef struct _FILE_NOTIFY_INFORMATION {
DWORD NextEntryOffset;
DWORD Action;
DWORD FileNameLength;
WCHAR FileName[1];
} FILE_NOTIFY_INFORMATION;

http://www.whirlwind.ru/give/?oid=5

← →
Serginio (2003-05-12 18:12) [13]

http://www.delphimaster.ru/articles/panov/

← →
exo (2003-05-12 18:14) [14]

благодарю
ща попробую

компилятор ругается Найти похожие ветки