获取外部可执行文件的图标 (2001年2月28日).txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 19 行

获取外部可执行文件的图标 (2001年2月28日) 

网友更新  分类:数据库   作者:George  推荐:GeorgeAPI   阅读次数:262  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
...
var
IconIndex:word; 
H:hIcon;
begin
IconIndex:=0;
H:=ExtractAssociatedIcon(hInstance,'c:\windows\notepad.exe'
,IconIndex);
DrawIcon(Form1.canvas.handle,10,10,10,h);
end;
如何?