Delphi

← →
Dik!S (2002-12-03 14:19) [0]

Здравствуйте!
У меня такой вопрос мне нужно
убрать вкладку "Свойство папки" и "Поиск"(CTRL+F).
и можно ли програмно т.е. из своей программы
очистить "Корзину" и Песледние 15 документов
например при клике на кнопке.
Я знаю что это всё делается через реестр, но
ориентируюсь там ещё плохо :(.
И ещё можно ли при клике очищать какую либо
папку, например TemproraryInternetFiles ?
Может подскажете, где можно скачать какую-нибудь
информмацию про реестр?
Заранее благодарен!
P.S. Dik!S

← →
Игорь Шевченко (2002-12-03 14:27) [1]

Не ориентируешься - не делай

← →
Slavik2k (2002-12-05 19:36) [2]

Что значит <"Поиск"(CTRL+F).> .

чистит документы н.о. SHAddToRecentDocs(SHARD_PATH, nil);

для корзины сначало создай вот такой Unit после его прикрепишь и используй эту функцию:
чистит карзину SHEmptyRecycleBin(0,nil,SHERB_NOCONFIRMATION or SHERB_NOPROGRESSUI );

unit ShellAdd;
{$ALIGN ON}
{$WEAKPACKAGEUNIT}

interface

Uses Windows;

(*$HPPEMIT "#include <shellapi.h>"*)
type
TSHQueryRBInfo = packed record
cbSize : DWORD;
i64Size,
i64NumItems : TLargeInteger;
end;
PSHQueryRBInfo = ^TSHQueryRBInfo;
Const
SHERB_NOCONFIRMATION = $1;
SHERB_NOPROGRESSUI = $2;
SHERB_NOSOUND = $4;

function SHEmptyRecycleBinA(Wnd : HWND; pszRootPath : PANSIChar; dwFlags : DWORD) : HRESULT; stdcall;
function SHEmptyRecycleBinW(Wnd : HWND; pszRootPath : PWideChar; dwFlags : DWORD) : HRESULT; stdcall;
function SHEmptyRecycleBin (Wnd : HWND; pszRootPath : PChar; dwFlags : DWORD) : HRESULT; stdcall;

function SHQueryRecycleBinA(pszRootPath : PANSIChar; var SHQueryRBInfo : TSHQueryRBInfo) : HRESULT; stdcall;
function SHQueryRecycleBinW(pszRootPath : PWideChar; var SHQueryRBInfo : TSHQueryRBInfo) : HRESULT; stdcall;
function SHQueryRecycleBin (pszRootPath : PChar; var SHQueryRBInfo : TSHQueryRBInfo) : HRESULT; stdcall;
implementation
const
Shell32="Shell32.dll";

function SHEmptyRecycleBinA; external Shell32 name "SHEmptyRecycleBinA";
function SHEmptyRecycleBinW; external Shell32 name "SHEmptyRecycleBinW";
function SHEmptyRecycleBin; external Shell32 name "SHEmptyRecycleBinA";

function SHQueryRecycleBinA; external shell32 name "SHQueryRecycleBinA";
function SHQueryRecycleBinW; external shell32 name "SHQueryRecycleBinW";
function SHQueryRecycleBin ; external shell32 name "SHQueryRecycleBinA";
end.

Delphi Найти похожие ветки