---

Her er et eksempel på hvordan du knytter dit program til en bestemt extension. Dvs. når en fil med denne extension bliver aktiveret, lukker dit program op for at åbne filen.

*************************************
Var
Reg : TRegistry;

Begin
Reg := TRegistry.Create;

try with Reg do
begin
RootKey := HKEY_CLASSES_ROOT;
OpenKey('\Filnavn', True);
WriteString('', 'Filnavn beskrivelse');
CloseKey;

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

OpenKey('Filnavn\shell\open\command', True);

WriteString('', Application.ExeName + ' "%1"');

CloseKey;

RootKey := HKEY_CLASSES_ROOT;
OpenKey('\.ext', True); // extension som skal bruges til at åbne dit program.
WriteString('', 'Filnavn');

CloseKey;
end;

finally
Reg.CloseKey;
Reg.Free;
end;
End;

---

---

---

---

Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.