sh@dow Mestre

Registrado: Domingo, 21 de Março de 2004 Mensagens: 807
|
Enviada: Dom Fev 06, 2005 8:06 pm Assunto: Abrir Html Através de um Botão On Click |
|
|
Tente assim:
uses ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var buffer: String;
begin
buffer := \'http://\' + Edit1.Text;
ShellExecute(Application.Handle, nil, PChar(buffer), nil, nil, SW_SHOWNORMAL);
end;
_________________ <a>Regras do fórum</a> |
|