關於winexec執行上的問題 |
|
尚未結案
|
|
lsleo
一般會員   發表：19 回覆：28 積分：9 註冊：2003-05-28 發送簡訊給我 |
以下的程式碼執行時沒有任何反應
有試著將變數tep改成較短的網址(ex: www.yam.com)就可以執行
如換成原來較長的網址就沒有任何反應~
煩勞各位幫幫忙~ 謝謝~
procedure TForm1.Button1Click(Sender: TObject);
var
tep:String;
begin
tep:= 'command.com /c wget.exe http://patft.uspto.gov/netacgi/nph-Parser?Sect1=PTO2&Sect2=HITOFF&p=1&u=/netahtml/search-bool.html&r=1&f=G&l=50&co1=AND&d=ptxt&s1=6014645.WKU.&OS=PN/6014645&RS=PN/6014645';
WinExec(PAnsiChar(tep), SW_SHOW);
end;
|
|
Justmade
版主  發表：94 回覆：1934 積分：2030 註冊：2003-03-12 發送簡訊給我 |
用 shellExecute 罷
uses ShellAPI procedure TForm1.Button1Click(Sender: TObject); var tep:String; begin tep:= 'http://patft.uspto.gov/netacgi/nph-Parser?Sect1=PTO2&Sect2=HITOFF&p=1&u=/netahtml/search-bool.html&r=1&f=G&l=50&co1=AND&d=ptxt&s1=6014645.WKU.&OS=PN/6014645&RS=PN/6014645'; ShellExecute(0,'open',PAnsiChar(tep),nil,nil, SW_SHOW); end; |
|
bundur
一般會員 發表：16 回覆：44 積分：22 註冊：2002-11-30 發送簡訊給我 |
引言: 以下的程式碼執行時沒有任何反應 有試著將變數tep改成較短的網址(ex: www.yam.com)就可以執行 如換成原來較長的網址就沒有任何反應~ 煩勞各位幫幫忙~ 謝謝~ procedure TForm1.Button1Click(Sender: TObject); var tep:String; begin tep:= 'command.com /c wget.exe http://patft.uspto.gov/netacgi/nph-Parser?Sect1=PTO2&Sect2=HITOFF&p=1&u=/netahtml/search-bool.html&r=1&f=G&l=50&co1=AND&d=ptxt&s1=6014645.WKU.&OS=PN/6014645&RS=PN/6014645'; WinExec(PAnsiChar(tep), SW_SHOW); end;用双引号("")将網址括起来即可。 |
|
lsleo
一般會員 發表：19 回覆：28 積分：9 註冊：2003-05-28 發送簡訊給我 |
不好意思...我用這個程式碼去執行...它可以開啟那個網頁~
但是加上wget.exe將網頁抓下來~卻不能執行...
如果在dos下執行tep這一段是可用的...
再煩勞各位幫幫忙了~ 謝謝
tep:= 'command.com /c wget.exe http://patft.uspto.gov/netacgi/nph-Parser?Sect1=PTO2&Sect2=HITOFF&p=1&u=/netahtml/search-bool.html&r=1&f=G&l=50&co1=AND&d=ptxt&s1=6014645.WKU.&OS=PN/6014645&RS=PN/6014645';
ShellExecute(0,'open',PAnsiChar(tep),nil,nil, SW_SHOW);
|
|
timhuang
尊榮會員 發表：78 回覆：1815 積分：1608 註冊：2002-07-15 發送簡訊給我 |
請參考: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/functions/shellexecute.asp 應該這樣下:
tep:= 'http://patft.uspto.gov/netacgi/nph-Parser?Sect1=PTO2&Sect2=HITOFF&p=1&u=/netahtml/search-bool.html&r=1&f=G&l=50&co1=AND&d=ptxt&s1=6014645.WKU.&OS=PN/6014645&RS=PN/6014645';
ShellExecute(0, nil, PChar('c:\xx\wget.exe'), PChar(tep),nil,nil, SW_SHOW);
|
|
lsleo
一般會員 發表：19 回覆：28 積分：9 註冊：2003-05-28 發送簡訊給我 |
|
|
Justmade
版主 發表：94 回覆：1934 積分：2030 註冊：2003-03-12 發送簡訊給我 |
發表時間：2003-05-29 17:01:20
IP:210.60.xxx.xxx 未訂閱
系統時間：2024-04-27 21:23:07
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |