salut tous le monde
je cherche comment aficher une page web directement a partir d'une application delphi.
l'adresse web de cette derniere est un contenu d'un label.caption ou edit.caption ect...
voila mon exemple:

procedure TMain.Label1Click(Sender: TObject);

begin

ShellExecute(0,'open', 'http://www.google.com',

nil, nil, SW_SHOWMAXIMIZED);

mais moi je veut remplacer' www.google.com '  par un contenu de label.caption ou edit.text 
merci pour tous le monde.

function openURL(const URL: string): integer;
begin
  result := ShellExecute(0, 'open', PChar(URL), nil, nil, SW_SHOWMAXIMIZED);
end;

...

begin
  openURL(Edit1.Text);
end; 

---

salut tu peut utiliser le composant Twebbrowser :) c'est plus fiable ^^ voici un pti help ! tu écrie se que tu veux dans le edit puis tu appuis sur entré et sa roule ^^ procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin If Key=#13 Then Begin Label1.Caption:='chagement en cours ... '; Form1.WebBrowser1.Navigate(Edit1.Text); end; end; bonne programmation { procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin label1.Caption:='chargement de la page terminer '; end; procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress, ProgressMax: Integer); begin { TForm1.WebBrowser1ProgressChange } if Progress>0 then begin ProgressBar1.Max := ProgressMax; ProgressBar1.Position := Progress end { Progress>0 } else begin ProgressBar1.position := 0 end; { TForm1.WebBrowser1ProgressChange } end;}

Salut,

@Hardouz : "tu peut utiliser le composant Twebbrowser :) c'est plus fiable ^^" : Evite de dires des bétises aussi grosse que toi. Le TWebBrowser c'est de la daube: Ce machin qui utilise IE; ne devrait jamais être utilisé.