바탕화면의 아이콘을 불러오는 방법이 따로 있는지는 모르지만

Windows바탕화면 디렉토리에 보시면 *.lnk 파일들에서

아이콘들을 추출할 수 있습니다

이 파일들을 아래 소스처럼 ExtractIcon() 또는ExtractAssociatedIcon() 으로

추출하면 되고요 *.lnk 각각의 파일은 디렉토리를 FindFirst(),

FindNext() 로 전부 검사를 하시면 될겁니다

제 홈페이지의 Delphi Tip 에서

http://myhome.shinbiro.com/~cozykyd/index.htm

"아이콘" 과 "디렉토리 검색" 으로 팁을 찾아보시면 참고가 되실겁니다

수고하세요



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ExtCtrls, StdCtrls, Buttons, FileCtrl, ShellAPI;



type

TForm1 = class(TForm)

FileListBox1: TFileListBox;

DirectoryListBox1: TDirectoryListBox;

DriveComboBox1: TDriveComboBox;

BitBtn1: TBitBtn;

Image1: TImage;

procedure FileListBox1DblClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation

{$R *.DFM}



procedure TForm1.FileListBox1DblClick(Sender: TObject);

var

IcoFileName: String;

IcoHandle: THandle;

MyIcon: TIcon;

begin

// 아이콘을 추출할 파일명

IcoFilename := FileListBox1.Filename;



// 마지막 인덱스트ㅌ 아이콘 번호(DLL이나 EXE에는 복수개의 아이콘이 있다)

IcoHandle := ExtractIcon(Application.Handle, PChar(IcoFilename), 0);



if IcoHandle = 0 Then // 이 파일에는 추출할 수 있는 아이콘이 없다

begin

ShowMessage('파일에는 추출할 수 있는 아이콘이 없습니다');

System.Exit;

end;



MyIcon := TIcon.Create;

MyIcon.Handle := IcoHandle;



// 추출한 아이콘을 BitBtn의 아이콘으로 사용한 예

BitBtn1.Glyph.Height := MyIcon.Height;

BitBtn1.Glyph.Width := MyIcon.Width;

BitBtn1.Glyph.Canvas.Draw(2, 2, MyIcon);



// 추출한 아이콘을 image에 출력

Image1.Picture.Icon := MyIcon;



// 추출한 아이콘을 Application의 아이콘으로 사용한 예

Application.Icon := MyIcon;



MyIcon.Free;

end;



end.