또한번 질문을 드릴께요...



고수님들의 도움으로 파일의 (연결) 아이콘 핸들을 얻어

화면에 아이콘을 보여주는데까지는 성공했습니다.

그런데

아이콘 이미지에 글자(파일이름)을 찍을려고 다음과 같이 하니

bitmap에만 글자를 적을 수가 있다는 에러가 뜨네요.



어떻게 하면 아이콘 핸들을 이미지로 얻을 수 있나요?

파일의 아이콘을 bitmap으로 저장하는 방법은요?



다시 고수님을 불려봅니다.





====다음은 제가 작성한 루틴의 일부 입니다.=====

Procedure TForm1.button1onClick(sender: Tobject)

begin

.....



image.Picture.Icon.Handle :=

IconOfFile('aaa.txt', SHGFI_LARGEICON);

image.Canvas.TextOut(10,10, 'aaa.txt');



......

end;





function TForm1.IconOfFile(FileName:String; IconID:Integer):THandle;

var

SHFileInfo : TSHFileInfo;

begin

SHGetFileInfo(PChar(FileName), 0, SHFileInfo, SizeOf(SHFileInfo),

IconID or SHGFI_ICON);

Result := SHFileInfo.hIcon;

end;