Icon ändern

[sui]

Hi,

ich möchte, nachdem ich eine Datei verschlüsselt habe, das sich
das Icon der verschlüsselten Datei ändert. Quasi als Markierung.
Nachdem die Verschlüsslung feddich ist, müsste dann doch eine then-
Anweisung kommen.

Hab dafür dies hier gefunden: WM_SETICON

[Dax]

WM_SETICON funktioniert nur für Fenster. Wenn da Icon der Datei im Explorer ändern willst, musst die eine Dateiendung registrieren und für diese Endung ein Icon setzen. Wenn jemand interessiert ist (ausser dir) mach ich Tuturial.

[Ultimator]

Ja, ich! Hier! *sichmeld* :mrgreen:

[Meflin]

Delphi-Quellcode:

function InstallExt(Extension, ExtDescription, FileDescription,
                    OpenWith, ParamString: String; IconIndex: Integer): Boolean;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    with Reg do
     begin
      RootKey := HKEY_CLASSES_ROOT;
      OpenKey(Extension, True);
      WriteString('', ExtDescription);
      OpenKey('\' + ExtDescription, True);
      WriteString('', FileDescription);
      OpenKey('DefaultIcon', True);
      WriteString('', OpenWith + ','+IntToStr(IconIndex));
      OpenKey('\' + ExtDescription + '\Shell\Open\Command', True);
      WriteString('', '"' + OpenWith + '" "' + ParamString + '"');
     end;
   Result := True;
  except
   Result := False;
  end;
  Reg.Free;
end;

function UnInstallExt(Extension, ExtDescription: String): Boolean;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    with Reg do
     begin
      RootKey := HKEY_CLASSES_ROOT;
      DeleteKey(Extension);
      DeleteKey('\' + ExtDescription);
     end;
   Result := True;
  except
   Result := False;
  end;
  Reg.Free;
end;

[MathiasSimmack]

Ach, Meflin, und da hatte sich Dax schon so gefreut. :)
Aber btw: das hatten wir alles [dp="Dateityp registrieren"]schon[/dp].

[Meflin]

mir fällt auf das steht noch garnicht in der code lib. da sollts aber schleunigst rein...

[MathiasSimmack]

Nur als Tipp (im DF müsste sich irgendwo noch eine entsprechende Routine von mir rumtreiben): Wenn du wirklich eine clevere, universelle Funktion für die Code-Lib schreiben willst, dann sorge dafür, dass man auch das Verb selbst wählen kann und nicht bloß auf "open"

Zitat:

Delphi-Quellcode:

OpenKey('\' + ExtDescription + '\Shell\Open\Command', True);

festgelegt ist.

Ach Ja: Und eine Prüfung ("OpenKey" ist eine Funktion, und "WriteString" erzeugt im Fehlerfall eine Exception) wäre auch nicht schlecht.

Kriegst du das hin?
Okay, dann hast du einen sehr guten Beitrag für die Code-Lib. ;)

[Meflin]

wär natürlich auch net weiter schwer. nur welche ausser open gibts denn da noch so?

[MathiasSimmack]

Wirf doch einen Blick in das Kontextmenü diverser Dateitypen.
Öffnen, Ausführen, Drucken, ... usw. usw.

Wie du die Verbs nennst, ist letztlich egal (wobei "open", "edit" und "print" natürlich üblicher Standard sind). Wichtig wäre vielleicht auch, dass so eine Registrierungsfunktion nicht einfach blind einen neuen Eintrag erstellt, sondern dass sie vielleicht nachschaut ob der Typ schon registriert ist und dann nur noch den schon vorhandenen Schlüssel ergänzt.

Zu beachten gäbe es also einiges.

Hier übrigens mein Vorschlag aus dem DF. Sicher auch noch nicht perfekt, aber man könnte mal über das System diskutieren. Evtl. entsteht als Ergebnis ja der ultimative Code-Lib-Code. ;)
In Bezug auf das eben genannte Problem müsste man meine "RegisterFileType"-Routine bspw. so erweitern, dass sie (wie oben erwähnt) prüft ob es den Dateityp evtl. schon gibt. Im Augenblick ignoriert sie das nämlich auch, wenn ich ehrlich sein soll. :oops:

[Meflin]

so, hier einminiupdate ;-)

Delphi-Quellcode:

function InstallExt(Extension, ExtDescription, FileDescription,
                    OpenWith, ParamString: string; IconIndex: Integer;
                    ExtVerb: string = 'Open'): Boolean;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    with Reg do
     begin
      RootKey := HKEY_CLASSES_ROOT;
      OpenKey(Extension, True);
      WriteString('', ExtDescription);
      OpenKey('\' + ExtDescription, True);
      WriteString('', FileDescription);
      OpenKey('DefaultIcon', True);
      WriteString('', OpenWith + ','+IntToStr(IconIndex));
      OpenKey('\' + ExtDescription + '\Shell\'+ExtVerb+'\Command', True);
      WriteString('', '"' + OpenWith + '" "' + ParamString + '"');
     end;
   Result := True;
  except
   Result := False;
  end;
  Reg.Free;
end;

alles andere wäre für meine zwecke overkill, aber ich werde keinen daran hindern, es hinzuzufügen...