안녕하세요. 최용일입니다.

레지스트리에 아래와 같은 형식으로 값들을 써주시면 됩니다.

[HKEY_CLASSES_ROOT확장자]
Default Value=파일형식
예) [HKEY_CLASSES_ROOT.pas]
     Default=DelphiUnit

[HKEY_CLASSES_ROOT파일형식]
Default=파일종류
AlwaysShowExt="" (= 문자열값)
BrowserFlags=$00000008 (=8 DWORD값)
EditFlags=$00010000 (=65536 DWORD값)
예)[HKEY_CLASSES_ROOTDelphiUnit]
    Default=Delphi Source File
    AlwaysShowExt="" (= 문자열값)
    BrowserFlags=$00000008 (=8 DWORD값)
    EditFlags=$00010000 (=65536 DWORD값)

Default값을 제외한 Value는 없어도 되는 값들이구요...
AlwaysShowExt는 탐색기에서 알려진 확장자 숨기기옵션을 체크해도 항상 확장자가 보이게 할때 쓰입니다. 문자열값으로 하나 생성해서 아무런 데이터도 넣어주실 필요는 없구요...
BrowserFlags와 EditFlags는 웹에서 링크클릭하면 바로 다운로드되어서 실행되게 할때 쓰이는 값으로 DWORD형식으로 8과 65536을 넣어주시면 됩니다.

[HKEY_CLASSES_ROOT파일형식DefaultIcon]
Default=아이콘파일[, 아이콘인덱스]
예)[HKEY_CLASSES_ROOTDelphiUnitDefaultIcon]
    Default=C:BorlandDelphi5BinDelphi32.exe, 5
이건 탐색기에서 파일이름앞에 보이는 아이콘을 설정하는 것입니다.
.ico파일이 아니라 실행파일이나 dll같은것들 내에 있을때는 뒤에 인덱스를 붙여주시면 됩니다.

[HKEY_CLASSES_ROOT파일형식Shell]
Default=동사
예)[HKEY_CLASSES_ROOTDelphiUnitShell]
    Default=Open
여러가지 동사들중에서 디폴트를 설정하는 것입니다. 동사가 하나밖에 없으면 설정할 필요는 없습니다.
동사란 쉽게 말해서 명령들이라고 할 수도 있는데요. 탐색기에서 파일을 오른쪽클릭하면 팝업메뉴가 뜨잖아요. 보시면 여러가지 명령들이 있죠. 열기, 잘라내기, 붙여넣기, 복사, ... 등등... 이런것들을 말합니다.
위에서 말한 동사들이 여러개 있을때, 이것들 중에 탐색기에서 메뉴 안띄우고 바로 클릭해서 실행할 때 디폴트로 실행될 명령어를 적어주시면 됩니다.

[HKEY_CLASSES_ROOT파일형식Shell동사]
Default=명령어
예) [HKEY_CLASSES_ROOTDelphiUnitShellOpen]
    Default=&Open
이것은 탐색기 팝업메뉴에 표시될 문자열을 적어주시면 됩니다. 그냥 디폴트로 아무것도 안 적어주시면 위의 동사가 그대로 표시되구요. 단축기는 영문 문자열 앞에 &를 적어주시면 됩니다. 한글은 안됩니다. 위의 예를 한글로 표시하실려면 다음처럼 "열기(&O)" 하시면 되겠죠...

[HKEY_CLASSES_ROOT파일형식Shell동사Command]
Default=실행파일 패스
예)[HKEY_CLASSES_ROOTDelphiUnitShellOpenCommand]
    Default=C:BorlandDelphi5BinDelphi32.exe %1
이 키는 파일에 연결된 실행파일의 풀패스를 적어주시면 됩니다. 뒤에 %1을 넣어주시면 실행파일 실행될때 클릭한 파일이 파라매터로 들어가게 됩니다.

레지스트리에는 위와 같이 넣어주시면 되는데, 탐색기를 재 실행하지 않은한 아이콘이 바뀌지는 않을겁니다.

아래와 같이 ShellApi유닛에 있는 함수를 써서 업데이트를 시켜주세요...

SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);

^^ 항상 즐코하세요..

최용일님 덕분에 해결 되었습니다.. 넘 감사 합니다...