Registry: Verknüpfen mit Programm

[rebugger]

Habe einen Verknüpfungs-Dialog für mein Programm.
Habe dazu eine TCheckListBox mit dem Inhalt:
.php
.html
...

Quellcode:

Delphi-Quellcode:

unit unit_shortcuts;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Registry, StdCtrls, CheckLst;

type
  TfrmFileShortcuts = class(TForm)
    listShortcuts: TCheckListBox;
    btnClose: TButton;
    btnSave: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  frmFileShortcuts: TfrmFileShortcuts;

implementation

uses
  unit_main;

{$R *.dfm}

function AddCommand(Extension, Command, OpenWith, ParamString: STRING; Asdefault: BOOLEAN):BOOLEAN;
var
  Reg: TRegistry;
  ExtType: String;
begin
  Reg := TRegistry.Create;
  try
    with Reg do
    begin
      RootKey := HKEY_CLASSES_ROOT;
      OpenKey(Extension, True);
      ExtType := ReadString('');
      if ExtType = '' then
      begin
        if Reg.KeyExists('\' + Extension + '\Shell\' + Command + '\Command') = FALSE then
          Reg.CreateKey('\' + Extension + '\Shell\' + Command + '\Command');

        OpenKey('\' + Extension + '\Shell\' + Command + '\Command', True);
        WriteString('', '"' + OpenWith + '" "' + ParamString + '"');

        if Reg.KeyExists('\' + Extension + '\DefaultIcon') = FALSE then
          Reg.CreateKey('\' + Extension + '\DefaultIcon');

        OpenKey('\' + Extension + '\DefaultIcon', True);
        WriteString('', Application.ExeName + ',0');

        if AsDefault then
        begin
          OpenKey('\' + Extension + '\Shell', True);
          WriteString('', Command);
        end;
      end
      else
      begin
        if Reg.KeyExists('\' + Extension + '\Shell\' + Command + '\Command') = FALSE then
          Reg.CreateKey('\' + Extension + '\Shell\' + Command + '\Command');

        OpenKey('\' + ExtType + '\Shell\'+Command+ '\Command', True);
        WriteString('', '"' + OpenWith + '" "' + ParamString + '"');

        if Reg.KeyExists('\' + Extension + '\DefaultIcon') = FALSE then
          Reg.CreateKey('\' + Extension + '\DefaultIcon');

        OpenKey('\' + Extension + '\DefaultIcon', True);
        WriteString('', Application.ExeName + ',0');

        if AsDefault then
        begin
          OpenKey('\' + ExtType + '\Shell', True);
          WriteString('', Command);
        end;
      end;
    end;
    result := true;
  except
    result := False;
  end;
  Reg.Free;
end;

function ShowCommand(Extension, OpenWith: STRING):BOOLEAN;
var
  Reg: TRegistry;
  ExtType: String;
begin
  Reg := TRegistry.Create;
  try
    with Reg do
    begin
      RootKey := HKEY_CLASSES_ROOT;
      OpenKey(Extension, True);
      ExtType := ReadString('');
      if ExtType = '' then
      begin
        OpenKey('\' + Extension + '\Shell\Open\Command', True);
        if Pos(Application.ExeName, ReadString('')) > 0 then
          result := true
        else
          result := false;
      end
      else
        result := false;
    end;
  except
    result := false;
  end;
  Reg.Free;
end;

procedure TfrmFileShortcuts.FormCreate(Sender: TObject);
begin
  AddCommand('.php', 'Open', Application.ExeName, '%1', TRUE);
end;

procedure TfrmFileShortcuts.btnCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmFileShortcuts.btnSaveClick(Sender: TObject);
var
  i: Integer;
begin
  for i:=0 to (listShortcuts.Count - 1) do
    if listShortcuts.Checked[i] = TRUE then
      AddCommand(listShortcuts.Items.Strings[i], 'Open', Application.ExeName, '%1', TRUE);

  Close;
end;

procedure TfrmFileShortcuts.FormShow(Sender: TObject);
var
  i: Integer;
begin
  for i:=0 to (listShortcuts.Count - 1) do
    listShortcuts.Checked[i] := ShowCommand(listShortcuts.Items.Strings[i], Application.ExeName);
end;

end.

Probleme:
1. Wenn der Dialog geöffnet wird, soll er die Items anhaken, die bereits mit meinem Programm verknüpft sind (macht er nicht)
2. Das verknüpfen beim Schließen erfolgt auch nicht (vielleicht fehlerhaft)

[MathiasSimmack]

Hast du dich denn schon mal mit diesem Thema beschäftigt?

1. Extensions (".php" meinetwegen) verweisen üblicherweise auf einen anderen internen Schlüssel ("PHPFile" von mir aus), dem die eigentlichen Shell-Einträge untergeordnet sind.

2. Beim Prüfen ob dein Programm mit einer Endung verknüpft ist, musst du die Registry weder mit Vollzugriff öffnen:

Zitat:

Reg := TRegistry.Create;

noch den Schlüssel erzeugen

Zitat:

OpenKey(Extension, True);

3. Wenn der User eines NT-Systems (NT, 2000, XP) nicht über die ausreichende Berechtigung verfügt, dann klappt der Zugriff überhaupt nicht. Das Schreiben naturgemäß nicht. Das Lesen in deinem Fall durch den Vollzugriff auch nicht.


Generell ein bisschen Lesestoff zum Thema: Dateityp Registry

[rebugger]

Ok, hab das ganze vielmehr abgespeckt.
Besteht jetzt nur noch aus je 5 Zeilen Code, funktioniert wunderbar und wird sowieso nur auf Wunsch des Anwenders aufgerufen (also muss der wissen, ob er Zugriff hat)

[MathiasSimmack]

Zitat von rebugger:

[...] und wird sowieso nur auf Wunsch des Anwenders aufgerufen (also muss der wissen, ob er Zugriff hat)

Falscher Ansatz. Mancher Anwender bedient sein Windows einfach nur und weiß gar nicht, dass bestimmte Sachen auch bestimmte Rechte voraussetzen. Zumal du mit IsAdmin die Prüfung auch selbst vornehmen und die Funktion von vornherein deaktivieren kannst, wenn nicht bspw. Admin-Rechte vorhanden sind.

[NicoDE]

Zitat von MathiasSimmack:

Mancher Anwender bedient sein Windows einfach nur und weiß gar nicht, dass bestimmte Sachen auch bestimmte Rechte voraussetzen.

ot: und manches Windows weiss nicht mal was Rechten

Zitat von MathiasSimmack:

Zumal du mit IsAdmin die Prüfung auch selbst vornehmen und die Funktion von vornherein deaktivieren kannst, wenn nicht bspw. Admin-Rechte vorhanden sind.

Nicht besonders praktisch wenn der Benutzer die Rechte hätte aber nicht Mitglied der lokalen Gruppe der Administratoren ist... mag selten vorkommen, aber in Firmennetzwerken und in Terminalsitzungen nicht unvorstellbar.
Eine saubere Fehlerbehandlung hat noch nie geschadet

[MathiasSimmack]

Zitat:

Nicht besonders praktisch wenn der Benutzer die Rechte hätte aber nicht Mitglied der lokalen Gruppe der Administratoren ist... mag selten vorkommen, aber in Firmennetzwerken und in Terminalsitzungen nicht unvorstellbar.
Eine saubere Fehlerbehandlung hat noch nie geschadet

Dann bitte ran, Nico, denn soweit ich mich erinnere, stammt die Grundlage von dir. Zumindest steht das so im Copyright der "IsAdmin"-Funktion in einem meiner Programme.

[NicoDE]

Zitat von MathiasSimmack:

Dann bitte ran, Nico, denn soweit ich mich erinnere, stammt die Grundlage von dir. Zumindest steht das so im Copyright der "IsAdmin"-Funktion in einem meiner Programme.

Es geht ja nicht um die IsAdmin-Funktion, sondern deren Gebrauch.
(Copyright, hm - so oft wie ich die mal eben neu geschrieben habe, gibt es bestimmt schon etliche Varianten... )

ps: was ich sagen wollte: entweder der Benutzer kann den Schlüssel zum Schreiben öffnen oder nicht (ob er Admin ist spielt keine Rolle)

[MathiasSimmack]

Zitat von NicoDE:

(Copyright, hm - so oft wie ich die mal eben neu geschrieben habe, gibt es bestimmt schon etliche Varianten... )

Wo kann man die aktuellste Variante finden?

Zitat:

ps: was ich sagen wollte: entweder der Benutzer kann den Schlüssel zum Schreiben öffnen oder nicht (ob er Admin ist spielt keine Rolle)

Na ja. Schon klar. Luckie ruft bei Codes wie dem von rebugger normalerweise immer

Zitat von Luckie, der hier noch nichts gesagt hat,:

Und was ist mit dem Ressourcenschutz?

@rebugger: Wenn man also das Erzeugen des TRegistry-Objekts prüft, und wenn man den Code entsprechend in try/finally kapselt und auch die Funktionen (wie "OpenKey") als das benutzt, was sie sind (Funktionen mit Rückgabewert nämlich!), dann sollte man auch auf der sicheren Seite sein. Dann hat man zwar mehr als

Zitat von rebugger:

je 5 Zeilen Code

aber das ist dann besser als zuviel einzusparen.