Edit1 : Eingabe der
URL (mit oder ohne http vorne dran)
Button1: Seite öffnen
die Prozedur wird beim "onClick" ausgeführt
Delphi-Quellcode:
uses
ShellAPI
{ .... }
procedure TForm1.Button1Click(Sender: TObject);
var
sSite: String;
begin
sSite := Trim(Edit1.Text);
if Pos('://', sSite) <= 0 then
sSite := 'http://' + sSite;
ShellExecute(Form1.Handle, 'open', PChar(sSite), nil, nil, SW_SHOWNORMAL);
end;
mfG
mirage228