Código Delphi [-]const URL = 'http://www.clubdelphi.com/'; begin MessageDlg ('MENSAGE......',mtInformation,[mbOk],0); ShellExecute(Handle,'open',URL,nil,nil,SW_NORMAL); close; end;
const URL = 'http://www.clubdelphi.com/'; begin MessageDlg ('MENSAGE......',mtInformation,[mbOk],0); ShellExecute(Handle,'open',URL,nil,nil,SW_NORMAL); close; end;