829
社区成员
发帖
与我相关
我的任务
分享
var
bHaveMSN: Boolean;
begin
if Application.MessageBox('Are you love Delphi?', 'Question', MB_YESNO +
MB_ICONINFORMATION + MB_TOPMOST) = IDYES then
begin
if bHaveMSN then
FindAndJoinMe('Msn:hao.chen@msn.com')
else
CreateMsnAndJoinMe('Msn:hao.chen@msn.com')
end
else
ShowMessage('No Msn,no score!');