Klasörü çop kutusuna yollamak ve geri almak

[pandora303]

Arkadaşlar

Dosya veya klasörü çöp kutusuna göndermek için internetten aşağıdaki kodu buldum. Kod çalışıyor ancak klasör silme kısmında bir sorun var. Klasörü kodla silip daha sonra çöp kutusundan geri al dediğimde klasörün içindeki dosyalar geri gelmiyor. Yani restore yaptığımda klasörü boş getiriyor. Kodu düzenleyerek bu durumu aşmak mümkün mü?

Teşekkürler...



uses ShellApi;

function SendToRecycle(FilesOrDir: string): boolean;
{ Sends files or directory to the recycle bin. }
var
F: TSHFileOpStruct;
From: string;
Resultval: integer;
begin
FillChar(F, SizeOf(F), #0);
From := FilesOrDir + #0;
Screen.Cursor := crHourGlass;
try
F.wnd := 0;
F.wFunc := FO_DELETE;
F.pFrom := PChar(From);
F.pTo := nil;

F.fFlags := FOF_ALLOWUNDO or
FOF_NOCONFIRMATION or
FOF_SIMPLEPROGRESS or
FOF_FILESONLY;

F.fAnyOperationsAborted := False;
F.hNameMappings := nil;
Resultval := ShFileOperation(F);
Result := (ResultVal = 0);
finally
Screen.Cursor := crDefault;
end;
end;

[pandora303]

Sorunu çözdüm sorun fonksiyonda değilmiş diğer satırdaki koddaymış. Fonksyon çalışıyor her türlü