Delphi 4.0换肤

＊.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  
应付了。

关键词：Delphi 4.0换肤