中国人说不 老外说NO
因为ShellExecute这个函数的声明在shellapi这个单元里面.
可以不用引用 你自己会导出的话,自己导出 就不用shellapi了.
for i:=1 to strtoint(edit1.text) dobegin
//把代码复制到这个里面,就你输入多少个就打开多少个.
end
先引用ShellAPI单元uses ShellAPI 2.代码中使用ShellExecute函数来实现ShellExecute(0,'open','www.qq.com',nil,nil,SW_SHOWNORMAL){在IE浏览器中打开www.qq.com网址} 3.举例:利用label来实现网址的超链接将Label的Caption属性设为你要链接的网址,可将字体设为带下划线,Cursor属性设为crHandPoint 手形在Click事件中添加代码procedure TForm1.Label1Click(Sender: TObject)begin
Shellexecute(0,'open',PChar(Label1.caption),nil,nil,SW_SHOWNORMAL)
end
欢迎分享,转载请注明来源:夏雨云
评论列表(0条)