NetVision-Technik - Standatbrowser ermitteln

NetVision-Technik (http://www.netvision-technik.de/forum/index.php)

- Delphi / Pascal (http://www.netvision-technik.de/forum/forumdisplay.php?f=60)

- - Standatbrowser ermitteln (http://www.netvision-technik.de/forum/showthread.php?t=2884)

TrackerPolizei

27.02.2009 17:09

Standatbrowser ermitteln

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

  Reg: TRegistry;

  KeyName: string;

  ValueStr: string;

begin

  Reg := TRegistry.Create;

  try

    Reg.RootKey := HKEY_CLASSES_ROOT;

    KeyName  := 'htmlfile\shell\open\command';

    if Reg.OpenKey(KeyName, False) then

    begin

      ValueStr := Reg.ReadString('');

      Reg.CloseKey;

      Label1.Caption := ValueStr;

    end

    else

      ShowMessage('No Default Webbrowser !');

  finally

    Reg.Free;

  end;

end;

Cerberus

27.02.2009 22:24

ich würde in dem Falle eher

Code:

if Reg.OpenKeyReadOnly(KeyName, False) then

Alle Zeitangaben in WEZ +1. Es ist jetzt 01:57 Uhr.