skjojarzenia pliku

var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
try
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey( '.mmp', True);
Reg.WriteString('', 'mmpFile');
Reg.CloseKey;
Reg.OpenKey( 'mmpfile\DefaultIcon', True);
Reg.WriteString('', Application.ExeName + ',1');
Reg.CloseKey;
Reg.OpenKey( 'mmpfile\shell\open\command', True);
Reg.WriteString('','"'+Application.ExeName+'" "%1"');
Reg.CloseKey;
Reg.OpenKey( 'mmpfile\shell\Edytuj', True);
Reg.WriteString('', 'Otwórz w programie...');
Reg.CloseKey;
Reg.OpenKey( 'mmpfile\shell\Edytuj\command', True);
Reg.WriteString('', '"' + Application.ExeName + '" "%1"');
except
raise Exception.Create('Błąd! Wystąpił błąd wzwiązany z rejestrem!');
end;
finally
Reg.Free;

To kodzik do skojarzenia playlisty z plikiem jak zrobić zeby zapisany plik playlisty miał taką ikonke jaką bym chciał np ikonke mojego programu.

Miro napisał(a)

var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
try
Reg.RootKey := HKEY_CLASSES_ROOT;
Reg.OpenKey( '.mmp', True);
Reg.WriteString('', 'mmpFile');
Reg.CloseKey;
Reg.OpenKey( 'mmpfile\DefaultIcon', True);
Reg.WriteString('', Application.ExeName + ',1');
Reg.CloseKey;
Reg.OpenKey( 'mmpfile\shell\open\command', True);
Reg.WriteString('','"'+Application.ExeName+'" "%1"');
Reg.CloseKey;
Reg.OpenKey( 'mmpfile\shell\Edytuj', True);
Reg.WriteString('', 'Otwórz w programie...');
Reg.CloseKey;
Reg.OpenKey( 'mmpfile\shell\Edytuj\command', True);
Reg.WriteString('', '"' + Application.ExeName + '" "%1"');
except
raise Exception.Create('Błąd! Wystąpił błąd wzwiązany z rejestrem!');
end;
finally
Reg.Free;

To kodzik do skojarzenia playlisty z plikiem jak zrobić zeby zapisany plik playlisty miał taką ikonke jaką bym chciał np ikonke mojego programu.

Popraw:

      Reg.OpenKey( 'mmpfile\DefaultIcon', True);
      Reg.WriteString('', '"' + Application.ExeName + '",0'); //<-- ikony indeksowane sa od 0, dobrze też dodać znki cudzysłowiu w ścieżce do pliku
      Reg.CloseKey;

Poprawiłem to i dlaej NIE MA tej ikony :/

Miro napisał(a)

Poprawiłem to i dlaej NIE MA tej ikony :/

a) przeładuj explorera
b) przeładuj windowsa
nie zawsze zaskakuje to od razu