Links på en form

se i hjælp efter shellexecute

fundet på loftet :)

Function WWW(aWhere: String): Boolean;
var
  ShellTo: String;
begin
  Result:=False;
  try
    if StrUpper(Pchar(Copy(aWhere,1,7)))=\'HTTP://\' then aWhere:=Copy(aWhere,7,Length(aWhere));
    Result:=True;
    ShellTo:=\'http://\'+aWhere;
    if ShellExecute(0,\'open\',PChar(ShellTo),\'\',\'\',SW_SHOWNORMAL) <= 32 then Result:=False;
  Except
  end; 
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

Shellexecute(Handle, \'OPEN\', PChar(\'www.dinhjemmeside.dk\'), nil, nil, SW_SHOW);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

Shellexecute(Handle, \'OPEN\', PChar(\'mailto:navn@firma.dk\'), nil, nil, SW_SHOW);
end;

husk at tilføje shellapi i uses

Stoney

Gusse... det Virker desværre ikke.

Der står heller ikke noget i hjælp om ShellExecute.

Det skal nok lige nævnes at jeg programmerer i Delphi 4.

Takker Stoney og Gusse..

Det var uses det var galt med.
(svært at vide, når der ikke står noget under hjælp)

Nu virker det.

mvh
Hankster

Det bør nok lige nævnes her at med Shellexecute bestemmer du ikke selv om der lukkes et nyt browser vindue op eller ej. Til det formål skal du bruge  HLinkNavigateString()

Jens B