Private SkinOb As New SKINCRAFTERLib.SCSkin2
' The code in CODE SECTION has to be called in Form_Initialize() function
' --------- Begin of CODE SECTION ---------- '
SkinOb.InitLicenKeys "SKINCRAFTER","SKINCRAFTER.COM","
support@skincrafter.com","DEMOSKINCRAFTERLICENCE"
SkinOb.DefineLanguage 2
SkinOb.InitDecoration 1
' --------- End of CODE SECTION ---------- '
SkinOb.LoadSkinFromFile "D:\\Skin.skf"
SkinOb.ApplySkin
VC++ ISCSkin2 *m_pSkin = new ISCSkin2;
// The code in CODE SECTION has to be called in InitInstance() function,
// before creation of a main window
/* ------------ Begin of CODE SECTION ------------- */
CoInitialize(NULL);
m_pSkin->CreateDispatch("SkinCrafter.SCSkin2");
m_pSkin->InitLicenKeys("SKINCRAFTER","SKINCRAFTER.COM","
support@skincrafter.com","DEMOSKINCRAFTERLICENCE");
m_pSkin->DefineLanguage(0);
m_pSkin->InitDecoration(1);
/* ------------ End of CODE SECTION ------------- */
m_pSkin->LoadSkinFromFile("D:\\Skin.skf");
m_pSkin->ApplySkin();
Delphi var
CSkin:CoSCSkin2;
ISkin:ISCSkin2;
begin
Application.Initialize;
ISkin := CSkin.Create;
ISkin.InitLicenKeys('SKINCRAFTER','SKINCRAFTER.COM','
support@skincrafter.com','DEMOSKINCRAFTERLICENCE');
ISkin.DefineLanguage(3);
ISkin.InitDecoration(1);
ISkin.LoadSkinFromFile('D:\\Skin.skf');
ISkin.ApplySkin();
end
CBuilder Application->Initialize();
IID IID_ISCSkin2 = {0x7235966D,0x13A0,0x4C2B,{0xAA,0x81,0xE8,0x6C,0xE0,0x61,0x88,0xB3}};
CLSID CLSID_SCSkin2 = {0x4A1AD3DC,0xC299,0x4481,{0x9E,0x79,0x8A,0x65,0x10,0x78,0x2F,0x03}};
CoInitialize(NULL);
ISCSkin2* pUnk;
pUnk = NULL;
CoCreateInstance(CLSID_SCSkin2,NULL,CLSCTX_SERVER,IID_ISCSkin2,(void**)&pUnk);
TCOMISCSkin2 SkinOb(pUnk);
SkinOb.InitLicenKeys(L"SKINCRAFTER",L"SKINCRAFTER.COM",L"
support@skincrafter.com",L"DEMOSKINCRAFTERLICENCE");
SkinOb.DefineLanguage(3);
SkinOb.InitDecoration(1);
SkinOb.LoadSkinFromFile(L"Stylish.skf");
SkinOb.ApplySkin();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
SkinOb.DeInitDecoration()
Power Builder OLEObject SkinOb
SkinOb = CREATE oleobject
SkinOb.ConnectToNewObject("SkinCrafter.SCSkin2")
SkinOb.InitLicenKeys("SKINCRAFTER", "SKINCRAFTER.COM", "
support@skincrafter.com", "DEMOSKINCRAFTERLICENCE")
SkinOb.InitDecoration(1)
SkinOb.LoadSkinFromFile("C:\Program Files\SkinCrafter\Skins\Stylish.skf")
SkinOb.ApplySkin()