在ShellExecute時array傳值有問題 |
答題得分者是:Stallion
|
jackiemi2_seed
中階會員 發表:37 回覆:97 積分:76 註冊:2006-09-11 發送簡訊給我 |
<textarea class="delphi" rows="10" cols="60" name="code"><br />
procedure TForm1.Button1Click(Sender: TObject);
var ip,id,pwd:string; send_string:array[1..3] of string; begin ip:='192.168.0.1'; id:='test'; pwd:='test'; send_string[1]:=ip; send_string[2]:=id; send_string[3]:=pwd; ShellExecute(0, PChar('open'), PChar('test.exe'),PChar(ip ' ' id ' ' pwd), nil, SW_SHOW); ShellExecute(0, PChar('open'), PChar('test.exe'),PChar(send_string), nil, SW_SHOW);//compile有問題 end; procedure TForm1.FormCreate(Sender: TObject); var ip,id,pwd:string; send_string:array[1..3] of string; begin //test.exe程式 ip:=Paramstr(1); id:=Paramstr(2); pwd:=Paramstr(3); showmessage(ip '...' id '...' pwd); end; </textarea><br /> 用 ip ' ' id ' ' pwd 傳沒問題,因為想再多傳幾個文字變數,所以想改用array, 請問一下,如何改成array??? thanks
------
OS : Win 7 pro Program : Delphi 7 DataBase : Ms Sql 2008 編輯記錄
jackiemi2_seed 重新編輯於 2007-05-23 22:00:36, 註解 無‧
jackiemi2_seed 重新編輯於 2007-05-23 22:51:58, 註解 無‧ taishyang 重新編輯於 2007-05-24 09:36:25, 註解 將文章分類成[問題]‧ |
Stallion
版主 發表:52 回覆:1600 積分:1995 註冊:2004-09-15 發送簡訊給我 |
|
jackiemi2_seed
中階會員 發表:37 回覆:97 積分:76 註冊:2006-09-11 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |