VPF::Как очистить корзину? - Форум программистов

Antosha

Дата 12.12.2006, 16:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 14.10.2006

Репутация: нет
Всего: нет

Народ! помогите с таким вопросом: как програмно очистить корзину?
Может API-шка какая нибудь есть?

Albinos_x

Дата 12.12.2006, 16:55 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 3
Всего: 108

DRKB (Delphi Russian Knowledge Base)

Код


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.btnEmptyRecicleBinClick(Sender: TObject); 
var 
  Err: HRESULT; 
begin 
  Err := SHEmptyRecycleBin(Handle, 'c:\', SHERB_NOSOUND); 
  if Err <> S_OK then ShowMessage(SysErrorMessage(Err)); 
end; 

end.

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Snowy

Дата 12.12.2006, 17:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

http://vingrad.ru/DELPHI-DLP-002793

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »