Question

【Delphi 中关于 图标提取 的问题! 】

{ 【Delphi 中关于 图标提取 的问题! 】请看如下代码：}

//我想在 Dephi 中用 ExtractIcon 函数提取dll中的一个图标。过程如下：
procedure TForm1.Button1Click(Sender: TObject);
var hc:HICON; tc:TIcon;
begin //然后取出图标句柄：
ExtractIconEx('Shell32.dll',130,hc,hc,1); //这里也可用ExtractIcon函数
tc:=TIcon.Create;
tc.Handle:=hc; //将句柄hc传给TICON：
tc.SaveToFile('d:\1.ico'); //将图标写入文件：
tc.Free;
end;

{ 图标提取出来没问题，但得到的文件却是难看的16色图标(~呜呜，我的
MSN butterfly~~)。经分析，图标提取过程正常（直接画在窗体上没问题，
就是漂亮的真彩色），只要通过Delphi的TICON保存一下就变样！提取
任何一个 dll 或 exe 文件的图标，只要是真彩色的就全变成难看样！}

{ 请问：在Delphi 7中用上述方法提取出图标时，如何将图标保存成文件，
并使其保持真彩色？ 我不想再看到那些难看的图标}

{ 附注：我发现TICON有一个Palette属性，用来指定所使用的调色板。Palette
的类型是 HPALETTE，在 Delphi 的Graphics库中我只找到了它的一个取值
SystemPalette16，原内容如下：}
var SystemPalette16: HPalette; // 16 color palette that maps to the system palette
{ 我想是否可以换用另一个调色板来解决问题？是否还要用到 CreatePalette、
RealizePalette 等这些函数？}

{ 再啰嗦一遍，我的问题是：在Delphi 7中用上述方法提取出exe或dll中的图标时，
如何将图标保存成ico文件，并使其保持真彩色？（尽量用最简单的办法）}

Answer 1

Line 1: c-9 d-3 a-7 d-9 a-9 c-3 b-8 a-A d-7
Line 2: b-10 a-Q d-6 b-4 a-3 b-9 b-K c-A d-8
Line 3: King2 d-A b-A a-4 a-2 b-7 d-5 c-7 a-8
------------------------------------------------
Remember a card ,and tell me what line it reside in(1/2/3):3
------------------------------------------------
Line 1: c-9 d-3 a-7 b-10 a-Q d-6 King2 d-A b-A
Line 2: d-9 a-9 c-3 b-4 a-3 b-9 a-4 a-2 b-7
Line 3: b-8 a-A d-7 b-k c-A d-8 d-5 c-7 a-8
------------------------------------------------
What line the card you remembered reside in now(1/2/3):1
------------------------------------------------
Line 1: c-9 b-10 King2 d-9 b-4 a-4 b-8 b-K d-5
Line 2: d-3 a-Q d-A a-9 a-3 a-2 a-A c-A c-7
Line 3: a-7 d-6 b-A c-3 b-9 b-7 d-7 d-8 a-8