拷贝移动删除整个目录。 (2001年1月27日).txt

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

拷贝/移动/删除整个目录。 (2001年1月27日) 

网友更新  分类:图形图象   作者:This tip is from http://www.delphimania.de  推荐:weicong   阅读次数:660  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
procedure BmpToWmf (BmpFile,WmfFile:string); 
var 
MetaFile : TMetaFile; 
MFCanvas : TMetaFileCanvas; 
BMP : TBitmap; 
begin 
{Create temps} 
MetaFile := TMetaFile.Create; 
BMP := TBitmap.create; 
BMP.LoadFromFile(BmpFile); 
{Igualemos tama駉s} 
{Equalizing sizes} 
MetaFile.Height := BMP.Height; 
MetaFile.Width := BMP.Width; 
{Create a canvas for the Metafile} 
MFCanvas:=TMetafileCanvas.Create(MetaFile, 0); 
with MFCanvas do 
begin 
{Draw the BMP into canvas} 
Draw(0, 0, BMP); 
{Free the Canvas} 
Free; 
end; 
{Free the BMP} 
BMP.Free; 
with MetaFile do 
begin 
{Save the Metafile} 
SaveToFile(WmfFile); 
{Free it...} 
Free; 
end; 
end;
 
 


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