大家看一下，我下面的读取图标的方法为什么不对呢？

[shylsx]

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

[lxpbuaa]

uses ShellAPI;

function GetIconFromFile(FileName: String; IconIndex: Word = 0): TIcon;
begin
Result := TICon.Create;
Result.Handle := ExtractIcon(0,PChar(FileName),IconIndex);
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 := GetIconFromFile(reg.ReadString(''), 0);
Reg.Free;
end;

—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

[lxpbuaa]

上面的GetIconFromFile(reg.ReadString(''), 0);是简写，对于reg.ReadString('')得到的
'C:\WIN2000\Explorer.exe,0 '这样的结果，应该去掉最后的“,0”再传入GetIconFromFile。

—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————