1、shell extensionunit ugetreslist;$warn symbol_platform offinterfaceuses windows, activex, classes, syti, messages, comobj, shellapi, shlobj, math, graphics, jpeg, regisy;type tgetreslist = class(tcomobject, ishellextinit, iconttmenu, icontextmenu3) private ffilelist: tstrings; fgraphic: tgraphic; pro

2、tect /ishellextinit fution ishellextinit.initialize = seinitialize; function seinitialize(plfolder: pitemidlist; obj: idataobject; hkeyprogid: hkey): hresult; stdcall; /icontextmenu function querycontextmenu(menu: hmenu; indexmenu, idcmdfirst, idcmdlast, uflags: uint): hresult; stdcall;/before popup

3、 function invokecommand(var lpici: tcminvokecommandinfo): hresult; stdcall;/onclick function getcommandstring(idcmd, utype: uint; pwreserved: puint; pszname: lpstr; cchmax: uint): hresult; stdcall;/hint when move over /icontextmenu2 function handlemenumsg(umsg: uint; wparam, lparam: integer): hresul

4、t; stdcall; /icontextmenu3 function handlemenumsg2(umsg: uint; wparam, lparam: integer; var lpresult: integer): hresult; stdcall; public procere initialize; override; destructor destroy; override; end; tgetreslistfactory = class(tcomobjectfactory) public procedure upregistry(register: boolean); over

5、ride; end;const class_getreslist: tguid = 'aae1817e-34ea-4892-b6a7-8d5738ba3074' /menu type mfstring = mf_string or mf_byposition; mfownerdraw = mf_ownerdraw or mf_byposition; mfspearator = mf_separator or mf_byposition; /menu id idcopyanywhere = 0;/copy(move) idregister = 5; /registeractive

6、x idunregister = 6; /unregisteractivex idimagepreview = 10;/preview picture idmenurange = 90; /resourcestring /menu item name scopyanywhere = 'copy any where.' scopyanywheretip = '可將選定的文件復(fù)制到任何路徑下' sregister = '注冊(cè).' sregistertip = '注冊(cè)getreslist插件庫' sunregister = '取

7、消注冊(cè).' sunregistertip = '取消注冊(cè)getreslist插件庫' simagepriview = '預(yù)覽文件' simagepriviewtip = '預(yù)覽文件'function getfilelistfromdataobject(lpdobj: idataobject; sl: tstrings): hresult;function isactivelib(const filename: string): boolean;procedure registeractivelib(wnd: hwnd; const fil

8、ename: string);procedure unregisteractivelib(wnd: hwnd; const filename: string);procedure reportwin32error(wnd: hwnd; const prefix: string; dwerror: dword);function isimagefile(const filename: string): boolean;function imagefromfile(const filename: string): tgraphic;function exeefile(wnd: hwnd; cons

9、t filename: string): thandle;procedure drawgraphic(adc: hdc; rc: trect; state: integer; graphic: tgraphic);function imageinfotostr(graphic: tgraphic): string;function make_hresult(sev, fac, code: word): dword;procedure docopyanywhere(wnd: hwnd; sl: tstrings);implementationuses comserv;/* 按照對(duì)象，得到相關(guān)的信

10、息function imageinfotostr(graphic: tgraphic): string;begin result := foat('%d * %d', graphic.width, graphic.height); if graphic is ticon then result := result + ' 圖標(biāo)' if graphic is tbitmap then begin case tbitmap(graphic).pixelformat of pfdevice: result := result + ' ddb' pf1b

11、it: result := result + ' 2色' pf4bit: result := result + ' 16色' pf8bit: result := result + '256色' pf15bit, pf16bit: result := result + ' 16位色' pf24bit: result := result + ' 24位色' pf32bit: result := result + ' 32位色' pfcustom: result := result + ' 自定義

12、色' end; result := result + '位圖' end; if graphic is tmeta then begin result := result + format('(%d*%d) 元文件', tmetafile(graphic).mmwidth div 100, tmetafile(graphic).mmheight div 100); end; if graphic is tjpegimage then begin case tjpegimage(graphic).pixelformat of jf24bit: result

13、:= result + ' 24位色 jpeg' jf8bit: result := result + ' 8位色 jpeg' end; end;end;/* 畫圖像procedure drawgraphic(adc: hdc; rc: trect; state: integer; graphic: tgraphic);var rcimage, rctext, rcstretch: trect; canvas: tcanvas; nsavedc: integer; x, y: integer; xscale, yscale, scale: double; xst

14、retch, ystretch: integer;begin rcimage.left := rc.left + 10; rcimage.right := rc.right - 10; rcimage.top := rc.top + 10; rcimage.bottom := rc.bottom - 30; rctext.left := rc.left + 10; rctext.right := rc.right - 10; rctext.top := rc.bottom - 20; rctext.bottom := rc.bottom; canvas := tcanvas.create; n

15、savedc := 0; try nsavedc := savedc(adc); canvas.handle := adc; if not assigned(graphic) then begin canvas.rectangle(rcimage); canvas.moveto(rcimage.left, rcimage.top); canvas.lineto(rcimage.right, rcimage.bottom); canvas.moveto(rcimage.right, rcimage.top); canvas.lineto(rcimage.left, rcimage.bottom)

16、; drawtext(canvas.handle, '未知圖像', -1, rcimage, dt_singleline or dt_center or dt_vcenter); end else begin if (graphic.width rcimage.right - rcimage.left) and (graphic.height rcimage.bottom - rcimage.top) then begin x := rcimage.left + (rcimage.right - rcimage.left - graphic.width) div 2; y :=

17、 rcimage.top + (rcimage.bottom - rcimage.top - graphic.height) div 2; canvas.draw(x, y, graphic); end else begin xscale := graphic.width / (rcimage.right - rcimage.left); yscale := graphic.height / (rcimage.bottom - rcimage.top); scale := max(xscale, yscale); xstretch := trunc(graphic.width / scale)

18、; ystretch := trunc(graphic.height / scale); x := rcimage.left + (rcimage.right - rcimage.left - xstretch) div 2; y := rcimage.top + (rcimage.bottom - rcimage.top - ystretch) div 2; rcstretch := rect(x, y, x + xstretch, y + ystretch); canvas.stretchdraw(rcstretch, graphic); end; windows.fillrect(canvas.handle, rctext, getsyscolorbrush(color_menu); settextcolor(canvas.handle, getsyscolor(color_menutext); setbkcolor(canvas.handle, getsyscolor(color_menu); drawtext(canvas.handle, pchar(imageinfotostr(graphic), -1, rctext, dt_singleline or dt_center or dt_vcenter); end; finally canva