I ilovedelphi4 Unregistered / Unconfirmed GUEST, unregistred user! 1999-11-12 #1 如何完成象NETSCAPE那样按一下“HOME”BUTTON，就能 自动连接到我的网站上？
C CJ Unregistered / Unconfirmed GUEST, unregistred user! 1999-11-12 #2 ？ winexec('http://xx.xx.xx',SW_SHOW);
D DreamTiger Unregistered / Unconfirmed GUEST, unregistred user! 1999-11-12 #3 不就像按了一个URL一样吗？ ShellExecute不就可以了？例子好多的。
S sunrise Unregistered / Unconfirmed GUEST, unregistred user! 2000-03-05 #6 shellexecute(handle,'open','http://xx.xx.xx','','',sw_shownormal); 我已经在我机器上试过,你不妨试一试.
B beta Unregistered / Unconfirmed GUEST, unregistred user! 2000-03-05 #7 同意sunrise,不过记住,要在Uses语句里面加上ShellAPI才行哦! 如果想做成超级链接的样子就把地址放在一个label里面,然后编辑其单击事件: procedure TForm1.label1Click(Sender:TObject); begin shellexecute(handle,'open',pchar(label1.caption),'','',sw_shownormal); end; 再好看一些就把label的font加上下划线,再把其Cursor改成手就行了.
同意sunrise,不过记住,要在Uses语句里面加上ShellAPI才行哦! 如果想做成超级链接的样子就把地址放在一个label里面,然后编辑其单击事件: procedure TForm1.label1Click(Sender:TObject); begin shellexecute(handle,'open',pchar(label1.caption),'','',sw_shownormal); end; 再好看一些就把label的font加上下划线,再把其Cursor改成手就行了.
