Показать корзину Windows

uses

ActiveX, ShlObj, ShellApi;

procedure FreePidl(pidl: PItemIDList);

var

allocator: IMalloc;

begin

if Succeeded(shlobj.SHGetMalloc(allocator)) then

begin

allocator.Free(pidl);

{$IFDEF VER90}

allocator.Release;

{$ENDIF}

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

exInfo: TShellExecuteInfo;

begin

// initialize all fields to 0

FillChar(exInfo, SizeOf(exInfo), 0);

with exInfo do

begin

cbSize := SizeOf(exInfo); // required!

fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_IDLIST;

Wnd := Handle;

nShow := SW_SHOWNORMAL;

lpVerb := 'open';

ShGetSpecialFolderLocation(Handle, CSIDL_BITBUCKET, PItemIDLIst(lpIDList));

end;

ShellExecuteEx(@exInfo);

FreePIDL(exinfo.lpIDList);

end;

Добавить комментарий