안녕하세요^^
저기 최용일님이 자세히 갈켜주셔서 이제 확장자 등록도 했고
레지스토리에 확장자 등록까지 확인을 했습니다...
그런대 될때도 있다가
List Index oub bounds 0 이라는 애러 표시가 한번씩 나옵니다...
그리고 레지스토리 등록을 해도 바로 아이콘이 변하는것이 아니고
재부팅을 하고 난후에야 아이콘이 변하고 하는대요..
바로 아이콘을 변하게 할려면 어떻게 하면 돼는지??

procedure TForm1.N7Click(Sender: TObject);
Var
   Reg : TRegistry;
begin
   Reg := TRegistry.Create;
   try
      with Reg do
         begin
            RootKey := HKEY_CLASSES_ROOT;

            OpenKey('.avi', True);  // Openkey(키이름, True);
            WriteString('','KoreaMyApp.avi');
            CloseKey;

            OpenKey('KoreaMyApp.avi',True);
            WriteString('','내가 만든 파일');
            CloseKey;

            OpenKey('KoreaMyApp.aviDefaultIcon',True);
            WriteString('','C:MyApp.exe, 1');
            CloseKey;

            OpenKey('KoreaMyApp.avishell',True);
            WriteString('','Open');
            Closekey;

            OpenKey('KoreaMyApp.avishellOpenCommand',True);
            WriteString('','C:MyApp.exe %1');
            CloseKey;
         end;
      finally
         Reg.CloseKey;
         Reg.Free;
      end;
end;

이게 제가 적은 소스인대...뭐가 잘못되었는지 좀 말씀해주세요 ^^;;