델사랑 wrote:

> 안녕하세요. 여러 델피언님들..

>

> ListView에다가 파일이름과 사이즈를 올리는 예제를 해보고 있습니다.. 올리긴 올렸눈데

>

> 파일 확장자에 따라 아이콘을 달리 넣는 방법을 알고 싶습니다.

>

> 음..이미지리스트를 이용해서 ExtractFileExt를 사용하면 어떠케 될거 같은데..ㅜ.ㅜ

>

> 부탁드립니다.

>

>

>

>

>



각자의 파일마다 특정 아이콘을 가지구 있는데...



그것의 핸들을 추출해서 뿌려주면 편하실거 같군요~



예를 들어...



Exe 같은 파일에서의 아이콘 추출방법입니다.



procedure TForm1.DrawIcon;

var

h: HIcon;

begin

h := ExtractIcon(hInstance, pChar(OpenDialog1.FileName), IconIndex);

Image1.Picture.Icon.Handle := h;

end;



procedure TForm1.OpenEXEDLLICLFile1Click(Sender: TObject);

var

h: HIcon;

begin

if OpenDialog1.Execute then

begin

IconIndex := 0;

DrawIcon;

end;

end;



물론 ShellAPI 유닛을 추가해주셔요~