如何將資源文件中的位圖顯示在TImage構(gòu)件中 (2000年8月15日) 

本站更新  分類(lèi):   作者:no  推薦:   閱讀次數(shù):557  
(http://www.codesky.net)  

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

var
HMyMap:HBITMAP;
begin
HMyMap:=LoadBitMap(HInstance,位圖在資源文件中的名稱(chēng));
Image1.Picture.BitMap.Handle:=HMyBitMap; 
1.得到程序的路徑
ExtractFileDir(Application.Exename);
2.察看文件是否存在
FileExists(FileName:String):Boolean;
3.改變文件擴(kuò)展名
ChangeFileExt(FileName:String)
4.得到文件的擴(kuò)展名
ExtractFileExt(FileName:String):String
 
 


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