Explorer

Tilføj Shellapi til uses:

og så:

Shellexecute(Handle, \'OPEn\', PChar(\'www.densideduvilåbne\'), nil, nil, SW_SHOW);

/ZIRON

kan ikke huske om http:// også skal med...

/ZIRON

procedure TForm2.LabelHjemmesideClick(Sender: TObject);
var
  ret : Integer;
  msg : String;
begin
    ret := ShellExecute(Form2.Handle, //ret evt. form-navn her
                nil,
                \'http://www.eksperten.dk/\',
                nil,
                nil,
                SW_SHOWNORMAL);

    if (ret <= 32) then //hvis ShellExecute ikke lykkedes
      begin

      msg := SysErrorMessage(GetLastError) + \'.  \'; //få systemets fejlmeddelelse
      Windows.MessageBox(
        handle,
        pchar(msg),
        \' Error\',
        MB_OK + MB_ICONINFORMATION + MB_DEFBUTTON1 + MB_APPLMODAL +
          MB_SETFOREGROUND + MB_TOPMOST);
      end
    else
      modalresult := mrOK; //luk formen hvis det gik OK

Tak for det hurtige svar, det virker som det skal.

det var da så lidt og takker for point :-)

/ZIRON