//--------------------------------------------------------------------------- void __fastcall TFormMain::TalkToWordClick(TObject *Sender) { Variant V; V = CreateOleObject("Word.Basic"); V.Exec(Procedure("AppShow")); V.Exec(Procedure("FileNew") << "Normal"); V.Exec(Procedure("Insert") << "Hello from Borland"); }
HRESULT WINAPI SLIsWindowsGenuineLocal( __in HSLC hSLC ) { PREPARE_LIBRARY(REAL_DLL_NAME, SL1ARGS_ROUTINE, __FUNCTION__); tempResult = Procedure(hSLC); DECONSTRUCT_LIBRARY(); return tempResult; }
HRESULT WINAPI SLReArmWindows( VOID ) { PREPARE_LIBRARY(REAL_DLL_NAME, SL0ARGS_ROUTINE, __FUNCTION__); tempResult = Procedure(); DECONSTRUCT_LIBRARY(); return tempResult; }
HRESULT WINAPI SLpProcessOemProductKey( __in HSLC hSLC, __in PVOID pArg1 ) { PREPARE_LIBRARY(REAL_DLL_NAME, SL2ARGS_ROUTINE, __FUNCTION__); tempResult = Procedure(hSLC, pArg1); DECONSTRUCT_LIBRARY(); return tempResult; }
HRESULT WINAPI SLUnregisterWindowsEvent( __in PVOID pArg0, __in PVOID pArg1 ) { PREPARE_LIBRARY(REAL_DLL_NAME, SL2ARGS_ROUTINE, __FUNCTION__); tempResult = Procedure(pArg0, pArg1); DECONSTRUCT_LIBRARY(); return tempResult; }
HRESULT WINAPI SLpUpdateComponentTokens( __in HSLC hSLC, __in PVOID pArg1 ) { PREPARE_LIBRARY(REAL_DLL_NAME, SL2ARGS_ROUTINE, __FUNCTION__); tempResult = Procedure(hSLC, pArg1); DECONSTRUCT_LIBRARY(); return tempResult; }
HRESULT WINAPI SLpGetGenuineLocal( __in PVOID pArg0, __in PVOID pArg1, __in PVOID pArg2 ) { PREPARE_LIBRARY(REAL_DLL_NAME, SL3ARGS_ROUTINE, __FUNCTION__); tempResult = Procedure(pArg0, pArg1, pArg2); DECONSTRUCT_LIBRARY(); return tempResult; }
//启动虚拟机 int VM::Start() { string mainName="main"; /*if((&Procs["main"])!=NULL){ mainName="main"; } else if((&Procs["Main"])!=NULL){ mainName="Main"; } else{ mainName=""; OutMessage::Out("确少主函数(main或Main)"); return 1; }*/ Procedure mainProc=Procedure(this,NULL,mainName,0); mainProc.Start(); return 0; }