esto lo saque de este foro mas abajo
procedure TForm1.button1Click(Sender: TObject);
begin
ShellExecute(Salas.Handle,nil,Pchar ('http:\\www.clubdelphi.com\'),'','',SW_SHOWNORMAL);
end;
__________________
www.cybervanet.cl
El matrimonio es como un submarino
puede flotar pero esta diseñado para hundirse
|