Полезное для программистов:

Фриланс
Новости
Статьи
   
Рубрики:

Error. Page cannot be displayed. Please contact your service provider for more details. (19)


Удаление файла в корзину

Поиск:
Код
unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ShellAPI;

const
 SHERB_NOCONFIRMATION  =  $1;
 SHERB_NOPROGRESSUI    =  $2;
 SHERB_NOSOUND         =  $4;

type
 TForm1 = class(TForm)
   btnGetRecicleBinFileCount: TButton;
   btnEmptyRecicleBin: TButton;
   btnDelToReciclebin: TButton;
   procedure btnGetRecicleBinFileCountClick(Sender: TObject);
   procedure btnEmptyRecicleBinClick(Sender: TObject);
   procedure btnDelToReciclebinClick(Sender: TObject);
 end;

type
  TSHQueryRBInfo = packed record
    cbSize      : DWORD;
    i64Size,
    i64NumItems : TLargeInteger;
  end;
  PSHQueryRBInfo = ^TSHQueryRBInfo;

 function SHEmptyRecycleBin(hwnd: HWND; pszRootPath: PChar;
   dwFlags: DWORD): HRESULT; stdcall;
   external 'shell32.dll' name 'SHEmptyRecycleBinA';

 function SHQueryRecycleBin (pszRootPath: PChar;
   var SHQueryRBInfo: TSHQueryRBInfo): HRESULT; stdcall;
   external  'Shell32.dll' name 'SHQueryRecycleBinA';  

var
 Form1: TForm1;

implementation

{$R *.dfm}

// Удаление файла в корзину...
procedure TForm1.btnDelToReciclebinClick(Sender: TObject);
var
 Struct: TSHFileOpStruct;
 Err: HRESULT;
begin
 with Struct do
 begin
   Wnd := Handle;
   wFunc := FO_DELETE;
   pFrom := 'c:\1.txt';
   pTo := nil;
   fFlags := FOF_ALLOWUNDO;
   fAnyOperationsAborted := True;
   hNameMappings := nil;
   lpszProgressTitle := nil;
 end;
 Err := SHFileOperation(Struct);
 if Err <> S_OK then ShowMessage(SysErrorMessage(Err));
end;

end.
Автор: Rouse_
Сайт: http://forum.sources.ru






Просмотров: 1500

 

 

Новые статьи:


Популярные:
  1. Как сделать цикличным проигрывание MIDI-файла?
  2. Создание AVI файла из рисунков
  3. Как устройство "отключить в данной конфигурации"?
  4. Kто в данный момент присоединен через Сеть?
  5. Как узнать количество доступной памяти?
  6. Как реализовать в RichEdit разноцветный текст?
  7. Как скрыть свое приложение от ProcessViewer
  8. Как программно нажать/скрыть/показ кнопку "Start"?
  9. Модуль работы с ресурсами в PE файлах
10. Функции вызова диалоговых окон выбора
11. Проверка граматики средствами Word'а из Delphi.
12. Модуль для упрощенного вызова сообщений
13. Функции для записи и чтение своих данных в, ЕХЕ- файле
14. Рекурсивный просмотр директорий
15. Network Traffic Monitor
16. Разные модули
17. Универсальная функция для обращения к любым экспортируем функциям DLL
18. Библиотека от VladS
19. Протектор для UPX'а
20. Еще об ICQ, сообщения по контакт листу?
21. Использование открытых интерфейсов
22. Теория и практика использования RTTI
23. Работа с TApplication
24. Примеры использования Drag and Drop для различных визуальных компонентов
25. Что такое порт? Правила для работы с портами
26. Симфония на клавиатуре
27. Загрузка DLL
28. Исправление автоинкремента
29. Взаимодействие с чужими окнами
30. Проверить дубляжи в столбце


 

 

 
 
На главную