H
hkcbz
Unregistered / Unconfirmed
GUEST, unregistred user!
//取得小图标集句柄
imagelist1.Handle:=SHGetFileInfo(nil,0,FileInfo,
SizeOf(FileInfo),SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
ImageList1.ShareImages:=true;
//取得大图标集句柄
imagelist2.Handle:= SHGetFileInfo(nil,0,FileInfo,SizeOf(FileInfo),
SHGFI_SYSICONINDEX or SHGFI_LARGEICON);
ImageList2.ShareImages:=true;
procedure TForm1.Button1Click(Sender: TObject);
begin
WITH listview1.items.add DO
begin
Imageindex:=GetIconIndex(edit1.text,checkbox1.Checked);
Caption:=inttostr(imageindex);
form1.Caption:='图标列表长度'+inttostr(imagelist1.Count);
end;
end;
这样做虽能根据扩展名返回图标序号,但要怎么返回光驱,U盘的图标呢,我是说假如本机没有光盘,但我想用光盘图标,怎么得到
imagelist1.Handle:=SHGetFileInfo(nil,0,FileInfo,
SizeOf(FileInfo),SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
ImageList1.ShareImages:=true;
//取得大图标集句柄
imagelist2.Handle:= SHGetFileInfo(nil,0,FileInfo,SizeOf(FileInfo),
SHGFI_SYSICONINDEX or SHGFI_LARGEICON);
ImageList2.ShareImages:=true;
procedure TForm1.Button1Click(Sender: TObject);
begin
WITH listview1.items.add DO
begin
Imageindex:=GetIconIndex(edit1.text,checkbox1.Checked);
Caption:=inttostr(imageindex);
form1.Caption:='图标列表长度'+inttostr(imagelist1.Count);
end;
end;
这样做虽能根据扩展名返回图标序号,但要怎么返回光驱,U盘的图标呢,我是说假如本机没有光盘,但我想用光盘图标,怎么得到