mp;＊.ico|''＋   

　　''Bitmaps(＊.bmp)|＊.bmp|''＋   

　　''Jpeg Image File(＊.jpg;＊.jpeg)|＊.jpeg;＊.jpg|''＋   

　　''Icons(＊.ico)|＊.ico'';   

　　Success:=True;   

　　IF OpenDialog1.Execute then   

　　Begin   

　　try   

　　Image1.Picture.LoadFromFile(OpenDialog1.Filename);   

　　except   

　　Application.MessageBox(''This file is not load!'',''Error!'',MB_OK);   

　　Success:=False;   

　　end;   

　　IF Success then SkinINI.WriteString(''interface'',''skin'',OpenDialog1.Filename);   

　　//若换肤成功，将图片信息存进skin.ini文件中   

　　End;   

　　SkinINI.Free;   

　　end;   

　　end.   

　　怎么样，换肤简单吧（什么东西都是“难的不会，会的不难”）！你还可以在此基础上继续向窗  
体上添加各种控件。因为这只是一个示例，所以就没有加那些。另外，严格得说，“换肤”指令应该  
在菜单中（即MainMenu控件中，其实也很简单）。但为了没有“赚稿酬”之嫌，所以就用一个Button  
应付了。