Abrindo o browser pelo delphi
Senhores,
Como é que, ao clicar em um botão, eu possa abrir o browser padrão em uma página qualquer especificada por mim?
Grato.
Como é que, ao clicar em um botão, eu possa abrir o browser padrão em uma página qualquer especificada por mim?
Grato.
Mathac_admin
Curtidas 0
Respostas
Beppe
31/12/2003
Coloque ShellAPI na uses:
Talvez eu esqueci um parâmetro, se sim, então é um zero ou nil...
ShellExecute(0, ´http://suapagina.com.br´, nil, nil, SW_SHOWNORMAL);
Talvez eu esqueci um parâmetro, se sim, então é um zero ou nil...
GOSTEI 0
Wagner
31/12/2003
Tenta ai colega, coloca isso no no evento onclick do botão, te garanto que funciona (altera o ou tira o discador caso voce nao use discagem e coloque o nome da pagina que voce quer, valeu.....
var
St:Array[0..255] of char;
begin
winexec(´C:\Arquivos de programas\iG\Discador iG.exe´,sw_show);
ShellExecute(Handle,´open´,StrPCopy(St,´http://´+ Label18.Caption),nil,nil,SW_SHOW);
end;
var
St:Array[0..255] of char;
begin
winexec(´C:\Arquivos de programas\iG\Discador iG.exe´,sw_show);
ShellExecute(Handle,´open´,StrPCopy(St,´http://´+ Label18.Caption),nil,nil,SW_SHOW);
end;
GOSTEI 0
Mfhardsoft
31/12/2003
Salve,
Eu utilizo em meus projetos algo assim:
WinExec( ´C:\Arquivos de Programas\Internet Explorer\iexplorer.exe http://www.mfhardsoft.com.br´, Sw_ShowNormal);
Porém você pode encontrar incompatibilidades com versões de Browser.
Espero ter ajudado
Eu utilizo em meus projetos algo assim:
WinExec( ´C:\Arquivos de Programas\Internet Explorer\iexplorer.exe http://www.mfhardsoft.com.br´, Sw_ShowNormal);
Porém você pode encontrar incompatibilidades com versões de Browser.
Espero ter ajudado
GOSTEI 0