ShellExecute

[Sharky]

Hai ColdFire,

versuche es doch mal so

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  url : String;
begin
  url := Edit1.Text;
  if Pos ('http://',url) = 0 then
  begin
    url := 'http://' + url;
  end;
  ShellExecute(Handle, 'open', PAnsiChar(url) , nil, nil, SW_SHOW);
end;