Programm/Datei/Homepage starten/öffnen

[SirThornberry]

Delphi-Quellcode:

procedure OpenHttpSite(AURL: String); //funktion zum webseite in neuem Fenster öffnen
var LRegistry: TRegistry;
    LBrowser: String;
    LStart, LEnd: Integer;
begin
  LRegistry := TRegistry.Create(KEY_READ);
  try
    LRegistry.RootKey := HKEY_CLASSES_ROOT;
    if LRegistry.OpenKey('http\shell\open\command', false) then
    begin
      LBrowser := LRegistry.ReadString('');
      if pos('"', LBrowser) > 0 then
      begin
        LStart := pos('"', LBrowser);
        LEnd := PosExt('"', LBrowser, LStart + 1);
        if LEnd > 0 then
           LBrowser := copy(LBrowser, LStart + 1, LEnd - (LStart + 1));
      end;
      LRegistry.CloseKey;
    end;
  finally
    LRegistry.Free;
  end;
  if ShellExecute(0, 'open', PChar(LBrowser), PChar(AUrl), nil, SW_SHOW) <= 32 then
     ShellExecute(0, 'open', PChar(AUrl), nil, nil, SW_SHOW)
end;

if pos('http://', AnsiLowercase(Programm)) = 1 then //wenn Programm mit "http://" anfängt
  openhttpsite(Programm)
else
  ShellExecute(0, 'open', PChar(Programm), nil, nil, SW_SHOW);