【怎样读取.lnk中的图标并加载入ImageList中？】（在线等待）

Question

如题。请指教。一定给分！

Answer 1

http://www.soulan.com/kingron/document/delphi/lnk.html

Answer 2

还有就是，怎么用ImageList来调用呀？

Answer 3

procedure TForm1.FileListBox1Click(Sender: TObject);
var
  icon : TIcon;
  filename : string;
  i,j : integer;
begin
  icon := TIcon.Create;
  i := strToInt(intToStr(extractIcon(hInstance,pchar(filename),DWord(-1 ))); 
  for j:=0 to i-1 do
  begin
    icon.Handle := extractIcon(hInstance,pchar(filename),j);
    imageList1.AddIcon(icon);
    inc(i);
  end;
  icon.Free;
end; 

Answer 4

采用如下的代码，你可以用listbox调用
procedure TForm1.FileListBox1Click(Sender: TObject);
var
    icon : TIcon;
    filename : string;
    i,j : integer;
    listItem : TListItem;
begin
    filename := fileListBox1.FileName;
    icon := TIcon.Create;
    i := strToInt(intToStr(extractIcon(hInstance,pchar(filename),DWord(-1))));
    for j:=0 to i-1 do
    begin
        icon.Handle := extractIcon(hInstance,pchar(filename),j);
        listItem := listView1.Items.Add;
        listItem.ImageIndex := imageList1.AddIcon(icon);
        inc(i);
    end;
    icon.Free;
end;