Fórum Onde estão os icones??? #240022

unit Main;

interface

uses
  Windows, Forms, Menus, StdCtrls, Buttons, ComCtrls, Controls, ExtCtrls,
  Classes, SysUtils, Messages, ShellApi, ImgList;

type
  TSearchForm = class(TForm)
...
  end;

var
  SearchForm: TSearchForm;

implementation

{$R *.DFM}

procedure TSearchForm.ProcessSearch(FileInfo: TSearchRec);
var
  Siz: Integer;
  Str: String;
begin
...
  with lvFoundList.Items.Add, FileInfo do
  begin
    Caption := Name;
    Data := Pointer(Siz);
    ImageIndex := GetShellImageEx(FCurrentPath + Name, $4003);
    if Siz = -1 then SubItems.Add(´´) else SubItems.Add(FormatBytes(Siz));
    SHGetFileInfo(Pointer(FCurrentPath + Name), 0, Self.FileInfo, SizeOf(FileInfo),
      SHGFI_TYPENAME);
    SubItems.Add(Self.FileInfo.szTypeName);
    SubItems.AddObject(DateTimeToStr(FileDateToDateTime(Time)), TObject(Time));
    SubItems.Add(ExtractRelativePath(Names.Folder, FCurrentPath));
  end;
  Inc(DesktopInfo.Count);
end;

procedure TSearchForm.FormCreate(Sender: TObject);
var
  ImgList: HIMAGELIST;
begin
  ImgList := SHGetFileInfo(nil, 0, FileInfo, SizeOf(TSHFileInfo),
    SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
  SendMessage(lvFoundList.Handle, LVM_SETIMAGELIST, LVSIL_SMALL, ImgList);
  ImgList := SHGetFileInfo(nil, 0, FileInfo, SizeOf(FileInfo),
    SHGFI_SYSICONINDEX or SHGFI_LARGEICON);
  SendMessage(lvFoundList.Handle, LVM_SETIMAGELIST, LVSIL_NORMAL, ImgList);
end;

end.