скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Показать корзину 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;





Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook