1,183
社区成员
发帖
与我相关
我的任务
分享显示 icon
请教：
如何将包含在文件中的图标
%SystemRoot%\system32\SHELL32.dll
中的某一个显示在image中
如何将包含在文件中的图标
%SystemRoot%\system32\SHELL32.dll
中的某一个显示在image中
...全文
请发表友善的回复…
发表回复
ntn115 2004-11-28
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
var
aIcon: TIcon;
begin
aIcon := TIcon.Create;
aIcon.Handle := ExtractIcon(Handle,'c:\Windows\system\SHELL32.dll',2);
Image1.Picture.Icon := aIcon;
aIcon.Free;
end;
var
aIcon: TIcon;
begin
aIcon := TIcon.Create;
aIcon.Handle := ExtractIcon(Handle,'c:\Windows\system\SHELL32.dll',2);
Image1.Picture.Icon := aIcon;
aIcon.Free;
end;
