以下的程式碼執行時沒有任何反應 有試著將變數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您好: 對不起,請改用Justmade大哥的範例

 
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;

順心 <>～我也是在學習的階段,所以請您多多見諒與指教～ 發表人 -

你這是 Delphi 的語法, 你在 Delphi 已貼了 不應在多版重貼，否則可被扣分的。 你可參考一下 新手需知---本站使用說明 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19264