Показать корзину WindowsDelphi , Файловая система , КорзинаПоказать корзину Windows
Оформил: DeeCo 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; Статья Показать корзину Windows раздела Файловая система Корзина может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |