파일 아이콘 가져오기
// 파일 선택해서 아이콘 가져오기. function GetFileIcon(sFileName: String; IsSmall: Boolean) : HIcon; var SHFileInfo: TSHFileInfo; vFlag : Cardinal; begin vFlag := SHGFI_USEFILEATTRIBUTES or SHGFI_ICON or SHGFI_EXETYPE; if IsSmall then vFlag := vFlag or SHGFI_SMALLICON; ShGetFileInfo( PChar( sFileName ), 0, SHFileInfo, SizeOf( TSHFileInfo ), vFlag ); Result := SHFileInfo.hIcon; end; 해당 파일의 full path를 포함한 이름을 ..
