- WriteError:= False;
- Reg:= TRegistry.Create;
- Reg.RootKey:= HKEY_CLASSES_ROOT;
- Reg.OpenKey('.obj', True);
- try
- Reg.WriteString('', 'OBJ.Renderfile');
- except
- WriteError:= True;
- end;
- Reg.CloseKey;
- if not WriteError then begin
- Reg.OpenKey('OBJ.Renderfile', True);
- try
- Reg.WriteString('', 'Renderfile');
- except
- //
- end;
- Reg.OpenKey('shell', True);
- Reg.OpenKey('open', True);
- Reg.OpenKey('command', True);
- try
- Reg.WriteString('', '"' + 'C:\Pfad\myprog.exe'+ '"' + ' "%1"');
- except
- //
- end;
- Reg.CloseKey;
- Reg.CloseKey;
- Reg.CloseKey;
- Reg.CloseKey;
- end;