extracticon으로 실행파일에서 아이콘을 추출 했습니다.

이걸 파일로 저장 했더니 색상이 16컬러로 밖에 나오지 않습니다.

색상을 256이나 좀 더 높은 색상으로 저장 할 수 없을 까요?

다음은 소스 입니다.

[다음]

var
IcoFileName: String;
IcoHandle: THandle;
MyIcon: TIcon;
  f          : TextFile;
  sOut       : string;
  ts         : tstream;
begin
//   AssignFile(f, 'temp.txt' );

AssignFile(f, 'temp.txt' );
   Reset(f);
   while not SeekEof(f) do begin
     ReadLn(f,sOut);
   end;
  closeFile(F);

//  showmessage(sout);
// 아이콘을 추출할 파일명
IcoFilename := sout;
// 마지막 인덱스트ㅌ 아이콘 번호(DLL이나 EXE에는 복수개의 아이콘이 있다)
IcoHandle := ExtractIcon(Application.Handle, PChar(IcoFilename), 0);
MyIcon := TIcon.Create;
MyIcon.Handle := IcoHandle;
myicon.savetofile('temp.bmp')   ;
MyIcon.Free;
Application.Terminate;