{©Drkb v.3(2007): www.drkb.ru}
// Функция восстанавливает выбранный в ListView элемент из корзины...
function RestoreElement(const AHandle: THandle; LV: TListView): Boolean;
 function GetLVItemText(const Index: Integer): String;
 begin
  if Index = 0 then
  Result := LV.Selected.Caption
  else
  Result := LV.Selected.SubItems.Strings[Index - 1];
 end;
var
 ppidl, Item: PItemIDList;
 Desktop: IShellFolder;
 RecycleBin: IShellFolder2;
 RecycleBinEnum: IEnumIDList;
 Fetched, I: Cardinal;
 Details: TShellDetails;
 Mallok: IMalloc;
 Valid: Boolean;
 Context: IContextMenu;
 AInvokeCommand: TCMInvokeCommandInfo;
begin
 Result := False;
 if LV = nil then Exit;
 if SHGetMalloc(Mallok) = S_OK then
  if SHGetSpecialFolderLocation(AHandle, CSIDL_BITBUCKET, ppidl) = S_OK then
  if SHGetDesktopFolder(Desktop) = S_OK then
  if Desktop.BindToObject(ppidl, nil, IID_IShellFolder2, RecycleBin) = S_OK then
  if RecycleBin.EnumObjects(AHandle,
  SHCONTF_FOLDERS or SHCONTF_NONFOLDERS or SHCONTF_INCLUDEHIDDEN, RecycleBinEnum) = S_OK then
  begin
  // Перечиляем содержимое корзины
  while True do
  begin
  RecycleBinEnum.(1, Item, Fetched);
  if Fetched = 0 then Break;
  Valid := False;
  for I := 0 to DETAIL_COUNT - 1 do
  if RecycleBin.GetDetailsOf(Item, I, Details) = S_OK then
  try
  // Ищем нужный нам элемент
  Valid := GetLVItemText(I) = StrRetToString(Item, Details.str);
  if not Valid then Break;
  finally
  Mallok.Free(Details.str.pOleStr);
  end;
  // Если выделенный элемент найден
  if Valid then
  begin
  // Восстанавливаем его при помощи интерфейса IContextMenu
  if RecycleBin.GetUIObjectOf(AHandle, 1, Item,
  IID_IContextMenu, nil, Pointer(Context)) = S_OK then
  begin
  FillMemory(@AInvokeCommand, SizeOf(AInvokeCommand), 0);
  with AInvokeCommand do
  begin
  cbSize := SizeOf(AInvokeCommand);
  hwnd := AHandle;
  // - локализация не нужна...
  lpVerb := 'undelete'; // - восстановление фийла из корзины...
  //lpVerb := 'properties'; // - показ диалога свойства...
  //lpVerb := 'delete'; // - удаление файла из корзины...
  fMask := 0;
  lpDirectory := PChar(LV.Selected.SubItems.Strings[0]);
  nShow := SW_SHOWNORMAL;
  end;
  Result := Context.InvokeCommand(AInvokeCommand) = S_OK;
  Break;
  end;
  end;
  end;
  end;
end;
procedure TForm1.mnuRestoreClick(Sender: TObject);
begin
 if ListView1.Selected <> nil then
  if RestoreElement(Handle, ListView1) then ShowMessage('Элемент успешно восстановлен.');
end;