Bitmap/Icon vom Papierkorb auslesen

[s-off]

Hallo,

hier mal ein kleines Beispiel:

Delphi-Quellcode:

uses
[...]
ActiveX,
ShellAPI,
ShlObj
[...]

Procedure TForm1.Button1Click(Sender: TObject);
Begin
   SetTrashIcon(Self);
End;

Procedure SetTrashIcon(Form: TForm);
Var
   piidlist: PItemIDList;
   FileInfo: SHFILEINFO;
Begin
   //Wir holen uns den Pfad zum Papierkorb
   SHGetSpecialFolderLocation(Form.Handle, CSIDL_BITBUCKET, piidlist);

   //Holen uns Infos zum Papierkorb, hier das Icon
   SHGetFileInfo(PChar(piidlist), 0, FileInfo, sizeof(FileInfo), SHGFI_ICON Or SHGFI_PIDL);

   //Weisen der Form dieses Icon zu
   Form.Icon.Handle := FileInfo.hIcon;
End;