//.cpp
#include     #include <math.h>    #pragma hdrstop    #include "bcb.h"    //---------------------------------------------------------------------------
// 以下為 aspect 函式之程式碼
// 功能：主要為印出星號
// 傳入參數：iaspect(型態 int)         EX: iaspect = 3;
//---------------------------------------------------------------------------
void Taspect::aspect(int iaspect,TMemo *Memo)
{
  int i,j,k;
  for(i=1;i<=iaspect;i  )
  {
    for(j=1;j<=(iaspect-i) 1;j  )
      Memo->Lines->Add(" ");
    for(k=1;k<=(i*2)-1;k  )
      Memo->Lines->Add("*");
  }
}    //---------------------------------------------------------------------------    //.h
/* 防止標頭檔的重複引入 */
#ifndef _bcb_H_
#define _bcb_H_
#include     #endif    //===========================================================================
// 以下程式碼為 Taspect Class 之宣告
// Taspect Class 主要為印出星號
//===========================================================================
class Taspect
{
  private:
  public:
  void aspect(int iaspect,TMemo *Memo);
};

引言: 我想我把我比較會的C寫好後..exe檔 經由BCB的介面來去執行它 然後出來的結果秀在BCB上

引言: 抽了空剛剛草草的寫了一下 void __fastcall TForm1::Button1Click(TObject *Sender) { WinExec("e7.exe",NULL);//e7.exe是給妳參考,不是真的一定要叫e7.exe } C的程式也放到同目錄下了，不過沒有反應

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    // 下列 ProgPath 為取得妳現在正在執行這支程式的存放路徑
    AnsiString ProgPath = ExtractFilePath(ParamStr(0));
    AnsiString prog="go.bat";  // 欲執行的批次檔名稱
    AnsiString parm = "temp.txt";  // 欲存放 e7.exe 程式輸出結果的文字檔名稱
    // 下列之 SW_HIDE 參數為不顯示執行時的 DOS 視窗，若想顯示則改成 SW_SHOW
    ShellExecute(Application->Handle, "open", prog.c_str(), parm.c_str(), ProgPath.c_str(), SW_HIDE);
}

 
//---------------------------------------------------------------------------
#include 
#include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Button1Click(TObject *Sender)
{
 WinExec("UEDIT32.EXE",NULL);
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Button2Click(TObject *Sender)
{
 WinExec("C:\\Program Files\\UltraEdit\\UEDIT32.EXE",NULL);
}
//---------------------------------------------------------------------------

引言:不過我是希望除了把結果回存到temp.txt外~ 還能秀在bcb上面的Edit或是memo上面~~

AnsiString ProgPath = ExtractFilePath(ParamStr(0));
AnsiString prog = "go.bat";
AnsiString parm = "temp.txt";
AnsiString tmpFile = ProgPath parm;
if(FileExists(tmpFile)){  // 如果已經存在 temp.txt 這個檔案
    DeleteFile(tmpFile);  // 那就先刪除掉舊的 temp.txt 檔
}    Memo1->Clear();  // 先清除 Memo 物件內容    ShellExecute(Application->Handle, "open", prog.c_str(), parm.c_str(), ProgPath.c_str(), SW_HIDE);    Sleep(1000);  // 暫停一秒鐘緩衝一下，讓檔案確實完成寫入動作    while (true) {  // 執行迴圈直到檔案產生完畢
    if(FileExists(tmpFile)){  // 如果檔案確實存在
        Memo1->Lines->LoadFromFile(tmpFile); // 讀取檔案內容給 Memo 物件
        break;  // 跳出 while 迴圈
    }
    Application->ProcessMessages(); // 避免執行迴圈時，整個程式被咬住而影響其它部分的操作
}

AnsiString ProgPath = ExtractFilePath(ParamStr(0));
AnsiString oldDir = GetCurrentDir();
AnsiString cmd = getenv("COMSPEC");
AnsiString prog = "go.bat";
AnsiString parm = "temp.txt";
AnsiString tmpFile = ProgPath parm;
AnsiString cmdline = cmd   " /C "   prog   " "   parm;    bool err = false;    SetCurrentDir(ProgPath);    DeleteFile(tmpFile);
Memo1->Clear();    UINT Result;
DWORD dwExitCode;
STARTUPINFO StartupInfo = {0};
PROCESS_INFORMATION ProcessInfo;    ZeroMemory(&StartupInfo, sizeof(StartupInfo));
StartupInfo.cb = sizeof(STARTUPINFO);
StartupInfo.wShowWindow = SW_HIDE;    Result = CreateProcess(NULL, cmdline.c_str(), NULL, NULL, false, 0, NULL, NULL, &StartupInfo, &ProcessInfo);    if (Result) {
    CloseHandle(ProcessInfo.hThread);
    if (WaitForSingleObject(ProcessInfo.hProcess, INFINITE) != WAIT_FAILED) {
        GetExitCodeProcess(ProcessInfo.hProcess,&dwExitCode);
    }
    CloseHandle(ProcessInfo.hProcess);        if(FileExists(tmpFile)){
        Memo1->Lines->LoadFromFile(tmpFile);
    }else{
        err = true;
    }
}else{
    err = true;
}    if(err) ShowMessage(tmpFile   " not found!");    SetCurrentDir(oldDir);

引言: 我的天啊～來人啊，有誰能幫我叫一部救護車嗎..... 獅仔！妳也太離譜了點吧？妳竟然將我提供的敘述放在 Memo1 的 OnChange 事件裡邊，妳是想要炸自己嗎？妳現在試試看在 Memo 裡邊隨便輸入一個字看看會怎樣？嘿嘿～在妳試之前，我可先提醒妳喔，不要暈倒....。 等妳回過神來之後，請將 Memo1 OnChange 事件的內容刪除掉，然後將我給妳的那些範例敘述放到 Button1 的 OnClick 事件裡，然後再試試看。 發表人 - RedSnow 於 2005/05/18 14:43:49