bcb6调用python的一种办法。解决方法

bcb6调用python的一种办法。
本质上就是通过管道，调用绿色版的python。抛砖引玉，希望能看到更好的办法。嘿嘿嘿嘿。
下载portable   python1.1   2.61（此为绿色版，如果你真的这么用，需要精简一下，比如doc,txt以及没用的模块都删掉）   然运行得到一个PortablePython_1.1_py2.6.1文件夹。
太长了。改名为py261得了。放到你的程序目录下面，如下面代码
[code=C/C++]//---------------------------------------

#include   <vcl.h>
#pragma   hdrstop

#include   "Unit1.h "

//---------------------------------------
#pragma   package(smart_init)
#pragma   resource   "*.dfm "
TForm1   *Form1;
bool   __fastcall   RunCmd(AnsiString   cmd,   TStringList   *   stringlist);
//---------------------------------------
__fastcall   TForm1::TForm1(TComponent*   Owner)
                :   TForm(Owner)
{
}

bool   __fastcall   RunCmd(AnsiString   cmd,   TStringList   *   stringlist)
{
    TMemoryStream   *memstream   =   new   TMemoryStream();
    AnsiString   rn   =   "\\r\\n ";
    PROCESS_INFORMATION   proc;
    STARTUPINFO   start;
    SECURITY_ATTRIBUTES   sa;
    long   ret;
    unsigned   long   lngBytesread;
    HANDLE   hReadPipe,   hWritePipe;
    char   *strBuff   =   (char   *)malloc(256);
    if(strBuff   ==   NULL)
    {
        return   false;
    }
    sa.nLength   =   sizeof(SECURITY_ATTRIBUTES);
    sa.bInheritHandle   =   true;
    sa.lpSecurityDescriptor   =   NULL;
    ret   =   CreatePipe(&hReadPipe,   &hWritePipe,   &sa,   0);
    if(ret   ==   0)
    {
        //   创建管道失败  
        return   false;
    }
    memset(&start,   0x00,   sizeof(STARTUPINFO));
    start.cb   =   sizeof(STARTUPINFO);
    start.dwFlags   =   STARTF_USESTDHANDLES   |   STARTF_USESHOWWINDOW;
    start.hStdOutput   =   hWritePipe;
    start.hStdError   =   hWritePipe;
    bool   retc   =   CreateProcess(NULL,   cmd.c_str(),   NULL,   NULL,   true,   0,   0,   NULL,   &start,
                                                        &proc);
    if(!retc)
    {
        return   false;
    }
    CloseHandle(hWritePipe);
    unsigned   long   len;
    memstream-> Position   =   0;
    while(true)
    {
        memset(strBuff,   0x00,   256);
        GetFileSize(hReadPipe,   &len);
        ret   =   ReadFile(hReadPipe,   strBuff,   256,   &lngBytesread,   NULL);
        if(ret   ==   0)

        {
            break;
        }
        else
        {
            memstream-> Write(strBuff,   lngBytesread);
        }
    }
    CloseHandle(proc.hProcess);
    CloseHandle(proc.hThread);
    CloseHandle(hReadPipe);
    memstream-> Position   =   0;
    free(strBuff);
    stringlist-> LoadFromStream(memstream);
    memstream-> Clear();
    delete   memstream;
    return   true;
}


//---------------------------------------

void   __fastcall   TForm1::Button1Click(TObject   *Sender)
{
String   path   = "D:\\Program   Files\\Borland\\CBuilder6\\Projects\\python\\Py261\\App\\ ";
TStringList   *lst   =new   TStringList;
RunCmd   (path+ "python   c:\\1.py ",lst);
Memo1-> Lines-> Clear();
Memo1-> Lines-> AddStrings(lst);
delete   lst;
}[/code]
1.py我写句话print   88**88,按钮点击后得到结果显示到memo1里面。那是相当的快啊。以上代码为了简单，路径都写死了。
[code=SQL]1301592834942972055182648307417315364538725075960067
82791531148472245234096631721580510682095919083330970493434651
7741237438752456673499160125624414995891111204155079786496
[/code]

[解决办法]
谢谢，学习了。
[解决办法]
bcb 下使用 python 的好处是什么？是为了运行脚本吗？
[解决办法]
我还没有学会Python ...