如何在关于窗口做一个公司的超连接???50分相送(50分)

  • 主题发起人 主题发起人 风清云淡系明月
  • 开始时间 开始时间

风清云淡系明月

Unregistered / Unconfirmed
GUEST, unregistred user!
如何在关于窗口做一个公司的超连接???
50分相送
 
shellexecute(handle,"http://",nil,nil,sw_shownormal)
 
运行结果是ShellExecute未定义,该如何修改??
 
shellapi单元加上
 
上面放一个Label。
Cursor属性为crHandPoint
Caption属性为http://... ...
OnClick写
var
szBuffer : array [0..255] of char;
begin
ShellExecute(Handle,'open',StrPCopy(szBuffer,Label1.Caption),nil,nil,SW_SHOW);
end;
 
还有一个问题,如何加上发mail的连接?
 
ShellExecute(handle, 'open',pchar('mailto:sdfsd@263.net'), Nil, nil, SW_SHOWNORMAL);
 
我给你一个控件吧,不错的label。可以运行程序、打开URL,Email、及无链接变色功能。
想要回复:yanhaij@163.net
 
用AAFont2.5吧,不但可以实现连接,而且还可以实现字体平滑显示。
COOL!不会让你失望
http://www.playicq.com/dispdoc.asp?id=1139
 
搞定,多谢了!!
 
后退
顶部