Delphi
大家看一下，我下面的读取图标的方法为什么不对呢？
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区各位大哥，帮我看一下我的下面的读取注册表中的图标的方法为什么错呢？
procedure TForm1.Button1Click(Sender: TObject);
Var
Reg: TRegistry;
Begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
If Reg.OpenKey('\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}
\DefaultIcon', False) Then
image1.Picture.Icon.LoadFromFile(reg.ReadString(''));
{如果上句改成
image1.Picture.Icon.LoadFromFile('C:\WIN2000\Explorer.exe,0 ')
也是不行。请问怎么载入这种资源的图标呢?还有，DefaultIcon的类型怎么
是REG_EXPAND_SZ型呢，这种类型怎么操作呢？}
Reg.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
Var
Reg: TRegistry;
Begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
If Reg.OpenKey('\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}
\DefaultIcon', False) Then
image1.Picture.Icon.LoadFromFile(reg.ReadString(''));
{如果上句改成
image1.Picture.Icon.LoadFromFile('C:\WIN2000\Explorer.exe,0 ')
也是不行。请问怎么载入这种资源的图标呢?还有，DefaultIcon的类型怎么
是REG_EXPAND_SZ型呢，这种类型怎么操作呢？}
Reg.Free;
end;
...全文
