關於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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |