如何将资源文件中的位图显示在timage构件中 (2000.txt

来自「delphi 编程技巧」· 文本 代码 · 共 26 行

如何将资源文件中的位图显示在TImage构件中 (2000年8月15日) 

本站更新  分类:   作者:no  推荐:   阅读次数:557  
(http://www.codesky.net)  

--------------------------------------------------------------------------------

var
HMyMap:HBITMAP;
begin
HMyMap:=LoadBitMap(HInstance,位图在资源文件中的名称);
Image1.Picture.BitMap.Handle:=HMyBitMap; 
1.得到程序的路径
ExtractFileDir(Application.Exename);
2.察看文件是否存在
FileExists(FileName:String):Boolean;
3.改变文件扩展名
ChangeFileExt(FileName:String)
4.得到文件的扩展名
ExtractFileExt(FileName:String):String
 
 


--------------------------------------------------------------------------------