åbn hjemme side i nyt vindue vha. shellexecute()

mon ikke du kan køre kommandoen som "Start c:\temp\hjemmeside.htm"  ??

uses
  ShellAPI, Registry;

procedure OpenURL(Url: string);
var
  ts: string;
begin
  with TRegistry.Create do
    try
      rootkey := HKEY_CLASSES_ROOT;
      OpenKey('\htmlfile\shell\open\command', False);
      try
        ts := ReadString('');
      except
        ts := '';
      end;
      CloseKey;
    finally
      Free;
    end;
  if ts = '' then Exit;
  // remove quotes and commandline parameters
  ts := Copy(ts, Pos('"', ts) + 1, Length(ts));
  ts := Copy(ts, 1, Pos('"', ts) - 1);
  ShellExecute(0, 'open', PChar(ts), PChar(url), nil, SW_SHOW);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenURL('http://www.eksperten.dk');
end;


Snowball

snowball, var det ikke lidt af en omvej? hvis du kaldet ShellExecute() med "open" skulle den meget gerne selv finde det program som er tilknyttet filtypen..

squashguy: Nej, det er som sådan ikke en omvej, for hvis du bare laver en normal shellexecute, så åbner den ikke et nyt vindue hvis f.eks. IE allerede er åben, og det er jo det oergaard ønsker (sådan som jeg forstår spørgsmålet i hvert fald)

Snowball

//Snowball

Det kunne simpelthen ikke være bedre! Tak for hjælpen! :-)

//Oergaard