löschvorgang überwachen!!

[markus lemcke]

hallo,

in einem windowsnetzwerk gibt es folgendes problem:

wenn ich von rechner a auf rechner b dateien lösche, landen die in keinem papierkorb!!!

frage:
kann ich löschaktionen überwachen und bevor eine datei gelöscht wird, sie in ein anderes verzeichnis kopieren?

mfg

markus

[Andreas Kosch]

Hallo Markus,

Borland liefert zusammen mit Delphi für diese Aufgabe bereits ein Beispielprojekt mit aus: <i>Demos\Activex\Shellext\copyhook.dpr</i>. Dort wird ein sogenannter <b>Copy Hook Handler</b> implementiert, der als COM-Objekt im Betriebssystem installiert wird und sich über das vorgdefinierte <b>ICopyHook</b>-Interface in diesen Vorgang einklinkt.

Im Beispielprogramm wird eine Sicherheitsabfrage demonstriert:
<pre>
function TCopyHook.CopyCallBack(Wnd: HWND; wFunc, wFlags: UINT; pszSrcFile: PAnsiChar;
dwSrcAttribs: DWORD; pszDestFile: PAnsiChar; dwDestAttribs: DWORD): UINT;
// This is the method which is called by the shell for folder operations
const
ConfirmMessage = 'Are you sure you want to %s ''%s''?';
var
Operation: string;
begin
case wFunc of
FO_COPY:
Operation := 'copy';
FO_DELETE:
Operation := 'delete';
FO_MOVE:
Operation := 'move';
FO_RENAME:
Operation := 'rename';
else
Operation := 'continue this operation on'
end;

// confirm operation
Result := MessageBox(Wnd, PChar(Format(ConfirmMessage, [Operation, pszSrcFile])),
'Delphi CopyHook Shell Extension...' , MB_YESNOCANCEL);
end;
</pre>
Anstelle der zusätzlichen MessageBox kannst Du nur FO_DELETE auswerten und dort den Dateiname in <i>pszSrvFile</i> auslesen bzw. die Datei in ein anderes Verzeichnis kopieren

[markus lemcke]

hallo andreas,

vielen dank!!!
ich schaue mir das demo am wochenende an!!!!! <br>

mfg

marku