예제 #1
0
//---------------------------------------------------------------------------
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");
}
예제 #2
0
HRESULT
WINAPI
SLIsWindowsGenuineLocal(
    __in HSLC hSLC
    )
{
    PREPARE_LIBRARY(REAL_DLL_NAME, SL1ARGS_ROUTINE, __FUNCTION__);
    tempResult = Procedure(hSLC);
    DECONSTRUCT_LIBRARY();
    return tempResult;
}
예제 #3
0
HRESULT
WINAPI
SLReArmWindows(
    VOID
    )
{
    PREPARE_LIBRARY(REAL_DLL_NAME, SL0ARGS_ROUTINE, __FUNCTION__);
    tempResult = Procedure();
    DECONSTRUCT_LIBRARY();
    return tempResult;
}
예제 #4
0
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;
}
예제 #5
0
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;
}
예제 #6
0
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;
}
예제 #7
0
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;
}
예제 #8
0
파일: VM.cpp 프로젝트: Houfeng/Snake
//启动虚拟机
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;
}