박종성 께서 말씀하시기를...

> 안녕하세요!

>

> 특정확장자를 가진 화일을 내가 작성한 프로그램으로 연결시킬려면

>

> 어떻게 하지요? 레지스트리를 설정하는 것 같은데 어느 부분을 건드려야

>

> 할지 몰라서 고수님들의 도움을 청합니다.

>

> 예로써, *.DPR -> Delphi32.EXE, *.HWP ->HWPW.EXE, *.BMP->PBRUSH.EXE

>

> 등이 연결되어 더블 클릭을 하면 해당 프로그램이 실행되면서 선택한 화일이

>

> Load되지요.

>

> 좋은 소식 기다리고 있겠습니다. 좋은 주말 되세요 ^_^



박종성님 안녕하세요?

오래전에 테스트 해본 내용인데 생각이 나서..^^;

아래는 특정 확장자를 가진 화일을 실행할시

특정 프로그램을 호출하도록 확장자를 연결시키는 예제입니다.



즐거운 프로그래밍 되세요~~





var

Reg: TRegistry;

Begin

Reg := TRegistry.Create;

try

with Reg do

begin

RootKey := HKEY_CLASSES_ROOT;

OpenKey('ChangMin', True);

WriteString('', '창민이 파일');

CloseKey;



OpenKey('ChangMinDefaultIcon', True);

WriteString('', Application.ExeName + ',0');

CloseKey;



OpenKey('ChangMinshellopencommand', True);

WriteString('', Application.ExeName + ' "%1"');

CloseKey;



//아래는 확장자로 특정 프로그램 호출을 지정하는 코드

RootKey := HKEY_CLASSES_ROOT;

OpenKey('.min', True);

WriteString('', 'ChangMin');

CloseKey;

end;

finally

Reg.CloseKey;

Reg.Free;

end;