🚀 go-pugleaf

poojo hackma wrote:

> It was simple enough to copy the technique, but I want to extend it
> to files not located on my PC (i.e. files over a network).
> 
> I want to say, "Give me my PC's default Windows icon for a .cpp,
> .doc, .pdf, .jpg, etc."  I want the icon that my PC has registered
> for that particular type of file to appear in a TListView.

We just use ExtractAssociatedIcon() but reviewing the code suggests
that someone implemented a work around at one point:

[snip]
  {
    WORD iconIndex=0;

    char damnMicrosoft[ MAXPATH+1 ];
    strcpy( damnMicrosoft, FileName.c_str() );
    result=ExtractAssociatedIcon( HInstance,
                                  damnMicrosoft,
                                  &iconIndex );
  }

  return result;
}

AFAIK this is all we do for conventional files local or networked but
we have another type of file that isn't available to windows. It may be
that our solution for that would work for you as well:

  if( IsVirtualF )
  { // Virtual object
    if( !IsADirF )
    {
      char *extZ=strrchr( FileName.c_str(), '.' );

      if( extZ )
      {
        AnsiString ext=extZ;

        Reg->RootKey=HKEY_CLASSES_ROOT;

        {
          if( Reg->OpenKey( "\\"+ext, false ) )
          {
            AnsiString key=Reg->ReadString( "" );
            if( Reg->OpenKey( "\\"+key, false ) )
            {
              if( Reg->OpenKey( "DefaultIcon", false ) )
              {
                AnsiString iconPath=Reg->ReadString("");

                char *commaPosn=strrchr( iconPath.c_str(), ',' );

                AnsiString iconNumber=0;

                if( commaPosn )
                {
                  iconNumber=commaPosn+1;

                  iconPath.SetLength( commaPosn-iconPath.c_str() );
                }

                if( FileExists( iconPath )||
                    iconPath.Pos( "%SystemRoot%" ) )
                {
                  result=ExtractIcon( Application->Handle,
                                      iconPath.c_str(),
                                      iconNumber.ToInt() );
                }
                else
                  ext=".COM";
              }
            }
          }

          Reg->CloseKey();
        }
      }
    }

..and FWIW the significance of that 'ext=".COM";' escapes me. Time for
a little bit of editing methinks :)
-- 
Andrue Cope [TeamB]
[Bicester, Uk]
http://info.borland.com/newsgroups/guide.html