大家看一下,我下面的读取图标的方法为什么不对呢?
各位大哥,帮我看一下我的下面的读取注册表中的图标的方法为什么错呢?
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;