請問各位大大,

我用一隻程式(A)去呼叫另一隻程式(B...C....D....)時，但是因為所連結的資料庫不只一個，所以在A程式裡有可選擇資料的功能；
因此我該如何讓A程式所選擇的資料庫在呼叫B..C..D程式時順便指向呢？
請各位大大提供參考的Code或思考方向，謝謝～

ps1.另外一題，我的A程式是用ADO連線的，但是其他Ｂ程式則ADO 與BDE皆有

ps2.環境：D7,Oracle,W-XP

1.如果你是四支exe檔, 那就要往b,c,d 程式接收參數的方式來做, 由a程式選選好資料庫後傳出參數, 由 b,c,d接收
2.如果上面的方式不會做, 可以利用 a程式產生一個temp檔或用一個資料庫來記錄目前應該使用的資料庫, b,c,d去開啟這個資料庫來讀取

將連線資訊記錄在一個檔裏，所有的程式皆使用此連線資訊，當A 程式選定後立即存入此檔，那之後所執行的程式不就都連線到對應的資料庫了嗎?

------
RogersLu

這裡有回應過傳遞參數的方法,可是有點笨看不太懂
http://delphi.ktop.com.tw/board.php?cid=30&fid=66&tid=30437

可以請敎敎我該怎樣修改我的程式

[code delphi]

procedure TForm1.MenuItemClick(Sender: TObject);
VAR
SendExec, sMenuItem:string;
PSendExec:pchar;
iErr:integer;
begin
if (Sender is TMenuItem) then
begin
qryDB.Close;
qryPROGID.SQL.TEXT:=' SELECT ICR_CODE FROM INPMCTRL Where ICR_KIND=''DB'' And ICR_NUMR=''1'' ';
qryDB.Open; //參數:qryDB.FieldByName('ICR_CODE').Value-->'TEST'

qryPROGID.Close;
qryPROGID.SQL.TEXT:='SELECT IMU_PROGID FROM IPPFMENU WHERE IMU_NAME =''' sMenuItem ''' AND IMU_TYPE <> ''T'' ';
qryPROGID.Open;

SendExec:='C:\run\' qryPROGID.FieldByName('IMU_PROGID').Value '.exe';
PSendExec:=Pchar(SendExec);
iErr:=WinExec(Pchar(PSendExec),SW_SHOW); //要傳的參數"TEST"要怎麼放?
if iErr < 31 then
begin
ShowMessage('無法連結此關聯程式，請洽資訊人員！');
Exit;
end;
end;
end;

[/code]
註:以下這樣可以執行,但是iErr < 31
//iErr:=WinExec(Pchar(PSendExec 'TEST'),SW_SHOW);
// iErr:=WinExec(Pchar(PSendExec ''' TEST '''),SW_SHOW);

編輯記錄

我後來亂改改成這樣就可以把參數"TEST"丟出去嚕^^"
iErr:=ShellExecute(handle,nil,(pchar(PSendExec)),'TEST',nil,Sw_shownormal);

另,想請問各位...
最後一個參數有好多種,有什麼區隔嗎?
EX: Sw_shownormal , SW_SHOW , SW_MAXIMIZE.....

你的程式PSendExec被執行時
一般顯示(Sw_shownormal)
顯示即可(SW_SHOW)
最大化(SW_MAXIMIZE)
....

------
努力會更接近成功

謝lu0720提供的方法喲,因為傳參數比較方便,不用寫太多CODE所以我選擇傳參數的方法
因為原提問是呼叫程式,所以我把最佳解答給版主喔~~

最後要特別感謝 pceyes 幫我解答ShellExecute最後一個參數的區別喲!!
遇見您真是分外覺得親切說 ......^______^"

編輯記錄