I am trying to do a file association just to get the apps icon associated
with a special file type I create. It worked once, but since then (I double
checked by removing the reg entries) it wont make these .jps files appear
with the associated icon. Anyone see why?
r := TRegistry.Create;
r.RootKey := HKEY_CLASSES_ROOT;
r.OpenKey('.jps',true);
if (r.readstring('')='INSTALL') or (r.ReadString('')='')
then
begin
r.WriteString('.jps', 'JPS');
r.WriteString('jps', 'CamSnap LoadSeries File');
r.WriteString('', 'JPS File');
r.OpenKey('DefaultIcon',true);
r.WriteString('', 'CamSnap.Exe,0');
end;
r.Free;
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
