Announcement

**Andreas Kosch** · 30.11.1999, 07:57

Hallo Markus,

mit der Win32-API-Funktion SHFileOperation k�nnen auch vollst�ndige Verzeichnisb�ume kopiert, verschoben und gel�scht werden. Allerdings gibt es bei den sogenannten Special Folders einige Ausnahmen - normale Verzeichnisse sind davon nicht betroffen. Dazu die gesuchten Beispiele:

1. Verzeichnisbaum kopieren:
<pre>
uses ShellAPI;

procedure TForm1.ButtonMoveDirClick(Sender: TObject);
var
aSHFOS : TSHFileOpStruct;
szFrom : array[0..128] of Char;
szTo : array[0..128] of Char;
begin
// Puffervariablen initialisieren (Doppel-Null!)
FillChar(aSHFOS, Sizeof(aSHFOS), #0);
FillChar(szFrom, Sizeof(szFrom), #0);
FillChar(szTo, Sizeof(szTo), #0);
// Ausgangs- und Zielverzeichnis festlegen
StrPCopy(szFrom, 'C:\Temp\Out\*.*');
StrPCopy(szTo, 'T:\Tmp');
with aSHFOS do
begin
Wnd := Handle;
wFunc := FO_COPY;
pFrom := @szFrom;
pTo :=@szTo;
fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle:= nil;
end;
ShFileOperation(aSHFOS);
end;
</pre>

2. Verzeichnisbaum l�schen:
<pre>
procedure TForm1.ButtonDeleteDirClick(Sender: TObject);
var
aSHFOS : TSHFileOpStruct;
szFrom : array[0..128] of Char;
begin
// Puffervariablen initialisieren (Doppel-Null!)
FillChar(aSHFOS, Sizeof(aSHFOS), #0);
FillChar(szFrom, Sizeof(szFrom), #0);
// Zu l�schendes Verzeichnis definieren
StrPCopy(szFrom, 'C:\Test\StdOut');
with aSHFOS do
begin
Wnd := Handle;
wFunc := FO_DELETE;
pFrom := @szFrom;
fFlags := FOF_NOCONFIRMATION or FOF_ALLOWUNDO;
fAnyOperationsAborted := False;
end;
ShFileOperation(aSHFOS);
end;
</pre&gt

**Dietmar Els�sser** · 04.02.2000, 23:00

Ich m�chte hier nochmals das Thema "L�schen von Ordnern unter Windows NT 4" aufgreifen. 
Zum L�schen verwende ich folgende Routine: 
 
function ShellDelete( Handle: THandle; 
const Source: string; 
Options: Byte): Boolean; 
var 
shellinfo: TSHFILEOPSTRUCT; 
begin 
with shellinfo do begin 
wnd:= Handle; 
wfunc:= FO_DELETE; 
pFrom:= PChar(Source + #0); 
pTo:= nil; 
fFlags:= Options; 
end; 
result:= ((SHFileOperation(shellInfo) = 0) and not shellInfo.fAnyOperationsAborted); 
end; 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
ShellDelete(Handle, 'c:\Test1', FOF_ALLOWUNDO); 
end; 
 
 
Alternativ teste ich auch mitder von Herrn Kosch ver�ffentlichten procedure 
 
Die Struktur der Testordner ist die folgende: 
C:\Test1\Test2 
in Test1 und Test2 befinden sich Dateien. 
Ziel ist es den Ordner Test1 komplett mit allen Dateien und Ordner in den Papierkorb zu verschieben. 
Vor dem Ordner Test1 k�nnen sich auch noch weitere Ordner befinden. 
 
Die Testmaschine: NT-Server 4 mit Service Pack 5, Internet Explorer 4 
Das Testprogramm wurde mit Delphi 4 SP 3 und alternativ mit Delphi 5 �bersetzt. 
 
------------ 
Erster Test: 
Geht man in den Explorer und �ffnet in Ordner Test1 eine Datei und l�scht parallel dazu mit dem Testprogramm den Ordner Test1 passiert folgendes: 
Nachdem die Dateien im Ordner Test2 und der Ordner Test2 unwiderruflich (nicht in den Papierkorb) gel�scht wurden wird folgende Meldung angezeigt: 
"Der Ordner Test1 kann nicht entfernt werden: Eine Zugriffsverletzung ist aufgetreten.
Die Quell- oder Zieldatei ist m�glicherweise ge�ffnet." 
Nach OK werden auch die restlichen Dateien unwiderruflich gel�scht. Der Ordner Test1 wird nicht entfernt. 
------------ 
Zweiter Test: 
Geht man in den Explorer, �ffnen Test2 und l�scht parallel dazu mit dem Testprogramm den Ordner Test1 passiert folgendes: 
Folgende Meldung wird angezeigt: 
"Test1 kann nicht gel�scht werden: Zugriff wurde verweigert.
Stellen Sie sicher, da� der Datentr�ger weder voll noch
schreibgesch�tzt ist und die Datei gerade nicht
verwendet wird." 
Nach OK werden keine Dateien gel�scht. 
------------ 
Auff�llig ist, da� auch andere Anwendungen Probleme mit dem L�schen von Ordnern haben. 
Installiert man ein Programm mit Install Shield dann bleibt nach der Installation ein Ordner "_istmp0.dir" im Temp-Ordner zur�ck. 
Das De-Installationsprogramm dagegen kann auch Ordner l�schen, die durch den Explorer ge�ffnet sind. 
------------ 
 
Die Frage ist nun: Beim wem liegt der Mega-Bug ? Bei mir ? Bei Delphi ? Bei NT ? 
 
mfg 
Dietmar 
 
Hinweis: Windows 95 l�scht immer alle Dateien, egal ob welche davon ge�ffnet sind

**Andreas Kosch** · 05.02.2000, 11:04

Hallo,

im Win32 SDK ist extra vermerkt, das man mit Windows 9x (im Gegensatz zu NT)auch Dateien mit offenen Kernel-Objekten l�schen kann. Das Problem mit NT liegt also in den strengenen Schutzmechanismen. In einer Ausgabe der Zeitschrift Microsoft System Journal (Jahr 98 oder 99?) wurde ein C++-Programm im Sourcecode vorgestellt, mit dem man programmgesteuert alle Handles auf eine Datei ermitteln und "abr�umen" kann (das Tool listet alle Prozesse auf, die auf diese Datei zugreifen). Das Abr�umen passiert normalerweise beim Beenden des Prozesses, der die Datei einmal "angefasst" hat.

Wenn das Verzeichnis im Explorer angezeigt wird, hat der Explorer alle Dateien in diesem Verzeichnis zumindestens einmal gelesen (Datum; Gr�sse etc.). Nicht ohne Grund fordern alle Setup-Programme auf, alle (!) anderen Windows-Anwendungen zu schliessen

**Dietmar Els�sser** · 05.02.2000, 16:58

Hallo, 
das ist ein Unding, ich sage NT: "Verschiebe den Ordner inkl. allem was darunter ist in den Papierkorb". NT bemerkt, da� ein Objekt, welche sich unten den zu l�schenden Objekten befindet, ge�ffnet ist und l�scht daraufhin alle Objekte unwiederruflich (nix Papierkorb, siehe Test1) ! 
mfg 
Dietma

**Andreas Kosch** · 11.02.2000, 17:54

Hallo,

der Papierkorb ist prim�r als Rettungsinstrument f�r "oberfl�chliche" Anwender gedacht - aber nicht ein verl�sslicher Ort f�r Sicherungskopien. Daher ist es auch nicht relevant, ob die vom Programm gel�schten Dateien im Papierkorb landen oder nicht. Wenn der Papierkorb nur eine kleine Gr�sse hat, und es werden sehr viele (grosse) Dateien gel�scht, entfernt Windows ganz "offiziell" alte Eintr�ge, um Platz zu schaffen. Man darf also niemals davon ausgehen, eine gel�schte Datei in jedem Fall dort wiederzufinden. Diese Besonderheiten werden in der Hilfe zur API-Funktion dokumentiert

Announcement

SHfileoperation

SHfileoperation

Comment

Comment

Comment

Comment

Comment