www.pudn.com > del6235577244.rar > skin_un.pas

unit skin_un; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ComCtrls, ShellCtrls, BusinessSkinForm, bsSkinCtrls, ExtCtrls, 
  bsMessages, StdCtrls,registry, jpeg, bsSkinShellCtrls; 
 
type 
  Tskin = class(TForm) 
    bsSkinGroupBox1: TbsSkinGroupBox; 
    bsBusinessSkinForm1: TbsBusinessSkinForm; 
    bsSkinGroupBox2: TbsSkinGroupBox; 
    Image1: TImage; 
    bsSkinXFormButton1: TbsSkinXFormButton; 
    bsSkinXFormButton2: TbsSkinXFormButton; 
    bsSkinMessage1: TbsSkinMessage; 
    bsSkinPanel1: TbsSkinPanel; 
    bsSkinStdLabel1: TbsSkinStdLabel; 
    bsSkinXFormButton3: TbsSkinXFormButton; 
    ShellTreeView1: TbsSkinDirTreeView; 
    bsSkinScrollBar6: TbsSkinScrollBar; 
    bsSkinScrollBar5: TbsSkinScrollBar; 
    procedure bsSkinXFormButton2Click(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
    procedure ShellTreeView1Click(Sender: TObject); 
    procedure bsSkinXFormButton3Click(Sender: TObject); 
    procedure bsSkinXFormButton1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  skin: Tskin; 
 
implementation 
   uses main_un; 
{$R *.dfm} 
 
procedure Tskin.bsSkinXFormButton2Click(Sender: TObject); 
var 
reg:tregistry; 
ms_skin:string; 
begin 
 reg:=tregistry.Create; 
 reg.RootKey:=hkey_local_machine; 
 reg.OpenKey('\software\microsoft\windows\bl_soft',true); 
 ms_skin:=reg.ReadString('skin'); 
 Form1.bsCompressedStoredSkin1.LoadFromIniFile(ms_skin); 
 Form1.bsSkinData1.LoadCompressedStoredSkin(Form1.bsCompressedStoredSkin1); 
 close; 
end; 
 
procedure Tskin.FormCreate(Sender: TObject); 
begin 
 shelltreeview1.Root:=ExtractFilePath(Application.ExeName)+'bsf'; 
end; 
 
procedure Tskin.ShellTreeView1Click(Sender: TObject); 
var 
abc:string; 
begin 
 bsskinstdlabel1.Caption:=trim(ExtractFilePath(Application.ExeName)+'bsf\'+shelltreeview1.Selected.Text); 
 abc:=bsskinstdlabel1.Caption+'\skin.ini'; 
 bsskinstdlabel1.Caption:=abc; 
 if not fileexists(abc) then 
  bsskinstdlabel1.Caption:=''; 
end; 
 
procedure Tskin.bsSkinXFormButton3Click(Sender: TObject); 
begin 
if bsskinstdlabel1.Caption<>'' then 
 begin 
  Form1.bsCompressedStoredSkin1.LoadFromIniFile(bsskinstdlabel1.Caption); 
  Form1.bsSkinData1.LoadCompressedStoredSkin(Form1.bsCompressedStoredSkin1); 
 end 
else 
 begin 
  bsskinmessage1.MessageDlg('没有选择到正确的皮肤文件，请重新选择...',mterror,[mbyes],0); 
  shelltreeview1.SetFocus; 
 end; 
end; 
 
procedure Tskin.bsSkinXFormButton1Click(Sender: TObject); 
var 
reg:tregistry; 
ms_skin:string; 
begin 
 if bsskinstdlabel1.Caption<>'' then 
 begin 
  reg:=tregistry.Create; 
  reg.RootKey:=hkey_local_machine; 
  reg.OpenKey('\software\microsoft\windows\bl_soft',true); 
  reg.WriteString('skin',bsskinstdlabel1.Caption); 
  Form1.bsCompressedStoredSkin1.LoadFromIniFile(bsskinstdlabel1.Caption); 
  Form1.bsSkinData1.LoadCompressedStoredSkin(Form1.bsCompressedStoredSkin1); 
  close; 
 end 
else 
 begin 
  bsskinmessage1.MessageDlg('没有选择到正确的皮肤文件，请重新选择...',mterror,[mbyes],0); 
  shelltreeview1.SetFocus; 
 end; 
end; 
 
end.