Url in Form durch Klick auf Button aufrufen

[sx2008]

Ungetestet. Auf jeden Fall sollte man eine Funktion oder Prozedur verwenden
und nicht ShellExecute im Programm verstreuen.

Delphi-Quellcode:

function StartsWith(const s, pattern:string):boolean;
begin
  Result := (copy(s, 1, Length(pattern)) = pattern);
end;

function OpenUrlInStandardBrowser(URL:string):integer;
begin
  Assert(URL <> '');
  if not StartsWith(URL,'http://') and not StartsWith(URL,'https://') 
     and not StartsWith(URL,'ftp://') then
     URL := 'http://'+URL;
  result := ShellExecute(0,'open',pchar(URL),nil,SW_SHOW);
end;

....
OpenUrlInStandardBrowser('www.delphipraxis.net');