Clear Resources
cFilename='.docx' && 文件类型，如.xls .jpg 等等

Declare Integer OleCreatePictureIndirect In oleaut32 String @lpPictDesc,String @riid,Long fOwn,Object @lplpvObj
Declare Integer SHGetFileInfo In shell32 String pszPath,Long dwFileAttributes,String @psfi,Long cbFileInfo,Long uFlags
Declare Integer GetDC In user32 Integer HWnd
Declare Short DrawIcon In user32 Integer hDC,Integer X,Integer Y,Integer hIcon
Declare Short DestroyIcon In user32 Integer hIcon
Declare Integer ReleaseDC In user32 Integer HWnd,Integer hdc
#Define SHGFI_ICON 0x000000100 && 获得图标
#Define SHGFI_USEFILEATTRIBUTES 0x000000010 && 不检测第一个参数所指定的文件是否存在
#Define SHGFI_LARGEICON 0x000000000 && Get large Icon
#Define SHGFI_SMALLICON 0x000000001  && Get small Icon
#Define PICTYPE_ICON 3
#Define GUID_Icon 0h8109F87B32BF1A108BBB00AA00300CAB && 0h0004020000000000C000000000000046

Local cBuffer,nResult,hIcon,lhDC,lcPictDesc,lqGuid,loIconObj
utype=1 && 图标类型，0为大图标，1为小图标

cBuffer=Replicate(Chr(0),1024)
nResult=SHGetFileInfo(cFilename,utype,@cBuffer,1024,SHGFI_ICON+SHGFI_LARGEICON+SHGFI_USEFILEATTRIBUTES)
hIcon=CToBin(Substr(cBuffer,1,4),'4rs')
lcPictDesc=BinToC(16,"4RS")+; && Size of Structure
BinToC(PICTYPE_ICON,"4RS")+; && Type of Image
BinToC(hIcon,"4RS")+; && Image Handle
BinToC(0,"4RS")
lqGuid=GUID_Icon
loIconObj=0
OleCreatePictureIndirect(@lcPictDesc,@lqGuid,1,@loIconObj)
If Vartype(loIconObj)='O'
lcIconFileName=Sys(2015)+'.ico'
SavePicture(loIconObj,lcIconFileName)
Thisform.Image1.Picture=lcIconFileName
Endif
lhDC = GetDC(Thisform.HWnd)
DrawIcon(lhDC,0,0,hIcon)
DestroyIcon(hIcon)
ReleaseDC(Thisform.HWnd,lhDC)

关于图片完美提取请参考dkfdtf 版主的：提取可执行文件中图标
http://blog.csdn.net/dkfdtf/article/details/5678990

谢谢十豆三老师，试了下改进后的代码
常用文件的图标都能显示出来
utype=1 && 图标类型，0为大图标，1为小图标
此处设置为0与1 结果没有什么不同
还有最后生成的ICO文件，色彩失真，是不是与电脑的设置有关系？

1. 当 SHGetFileInfo 函数用来取图标时，第二个参数是没什么意义的，所以设置0或1都没有区别，要指定是取那种类型的图标，应该在第5个参数中指定，例如：
SHGFI_ICON+SHGFI_LARGEICON+SHGFI_USEFILEATTRIBUTES  用来指定取大图标
SHGFI_ICON+SHGFI_SMALLICON+SHGFI_USEFILEATTRIBUTES 用来取小图标
SHGFI_ICON+SHGFI_SHELLICONSIZE+SHGFI_USEFILEATTRIBUTES 用来取shell显示尺寸的图标

2. 用 vfp 的 SavePicture 或者 win32api 的 OleSavePictureFile 都只能保存 16 色的图片，这些函数在 gdiplus 出现后，可以说都已经过时了，现在很难碰到只使用 16 色图片的人

3. 用 SHGetFileInfo 函数取出图标后，得到的是图标句柄，你可以使用 gdiplus 将它保存为文件，然后指定给 Image.Picture 使用，关于保存为文件，你可以看看不久前的这个帖子：http://bbs.csdn.net/topics/390717978，参考其中 GdipCreateBitmapFromHICON 和 GdipSaveImageToFile 函数的用法

4. 如果不希望创建图片文件，也可以将图标转成图形数据流，然后直接赋值给 Image.PictureVal 使用
先自己试试能否按上面的描述解决问题，不行我再贴些示例代码

谢谢猫老师了，我先按你说的试试

DECLARE INTEGER SHGetFileInfo IN shell32;
                 STRING pszPath,;
                 LONG dwFileAttributes,;
                 STRING @psfi,;
                 LONG cbFileInfo,;
                 LONG uFlags
DECLARE INTEGER GdipCreateBitmapFromHICON IN gdiplus;
            INTEGER hicon,;
                  INTEGER @hbitmap
DECLARE INTEGER GdipGetImageHeight IN gdiplus;
                 INTEGER   img,;
                 INTEGER @ imgheight
DECLARE INTEGER GdipGetImageWidth IN gdiplus;
                 INTEGER   img,;
                 INTEGER @ imgwidth
DECLARE Long GdipSaveImageToFile IN Gdiplus LONG nativeImage, STRING cFile, ;
                 STRING EncoderClsID,;
                 STRING EncoderParameters
DECLARE LONG GdipDisposeImage IN Gdiplus LONG nativeImage
Declare Long GdipBitmapSetPixel in GdiPlus.dll ;
            Long nativeImage, Long x, Long y, Long argb
Declare Long GdipBitmapGetPixel in GdiPlus.dll ;
            Long nativeImage, Long x, Long y, Long @argb
DECLARE INTEGER GdiplusStartup IN gdiplus;
   INTEGER @token, STRING @INPUT, INTEGER OUTPUT



FUNCTION SaveIco2Jpg
**定义函数 
LPARAMETERS cFilename as string,lcOutputFile as string,utype as long
**cFilename 参数：文件类型，如.xls .mdb 等等
**lcOutputFile参数：保存到本地的文件名称，如 dbf.jpg
**utype参数：图标类型，0为大图标，1为小图标
*******************************************
*算法制作:行者孙(QQ:310727570)
*******************************************
*VFP应用程式算法群:12787940
*******************************************
declareAPIFunction()

LOCAL hToken, cInput

hToken = 0
cInput = PADR(CHR(1), 16, CHR(0))
GdiplusStartup(@hToken, @cInput, 0)  

LOCAL cBuffer,nResult,hIcon,hbitmap,argb,imgwidth,imgheigh,ClsID_JPG
ClsID_JPG=0h01F47C55041AD3119A730000F81EF32E
STORE 0 TO hbitmap,argb,imgwidth,imgheight
cBuffer=REPLICATE(CHR(0),1024)
nResult=SHGetFileInfo(cFilename,utype,@cBuffer,1024,272)
hIcon=ctobin(SUBSTR(cBuffer,1,4),'4rs')
GdipCreateBitmapFromHICON(hIcon,@hbitmap)
GdipGetImageHeight(hbitmap,@imgheight)
GdipGetImageWidth(hbitmap,@imgwidth)
FOR i=0 TO imgwidth-1
    FOR ii=0 TO imgheight-1
        GdipBitmapGetPixel(hbitmap,i,ii,@argb)
        IF argb=0
           GdipBitmapSetPixel(hbitmap,i,ii,0xFFFFFF)
        ENDI
    ENDF
ENDF

GdipSaveImageToFile(hbitmap,STRCONV(lcOutputFile+CHR(0),5),ClsID_JPG, NULL)
GdipDisposeImage(hbitmap)

ENDFUNC 


========================================以上放到一个program.prg中
调用

=saveico2jpg(cFileName,"c:\app.jpg",0)
this.image1.Picture="c:\app.jpg"