안녕하세요.



테이블에서 검색한 몇개의 레코드만 출력하고 싶을 때는

어떻게 해야 하는지 잘 모르겠어요.

qreport 에 qrdbtext배치하고 그냥 인쇄하면 모든 레코드가 다 나오거든요.



초보를 너그러이 이해해주시고 꼭 좀 알려주세요..

우민석 wrote:

> 제가 만들고 싶은 프로그램은 HWP에서 처럼 HW P에서 저장된 화일은 윈도우의 탐색기에서 아이콘 모양도 나오고 더블 클릭하면 HWP가 실행되는 것 처럼 만들고 싶습니다.

> 어떻게 만드는지 도무지 몰라서 이렇게 질문하게 되었습니다.

> 프로그램내에서 어떻게 해야 되는지 아시는 분 계시면 대답해 주셨으면 감사하겠습니다.

> 부탁드립니다.

> 좋은 하루 되셔요 - ^.^ -



음냐...

저는 이게 좋을거 같은데,



ShellExecute(Handle, 'open',

'han6204.new21.net', '', '', SW_SHOWNORMAL);



이건 이 주소로 시스템의 기본 브라우저로 가는 겁니다.

주소 되신 파일명이나 이런거 써주면 시스템이 알아서 그 파일에 맞는

프로그램을 실행하죠.



도움말 보면서 확실히 익히세요.

우민석 wrote:

> 제가 만들고 싶은 프로그램은 HWP에서 처럼 HW P에서 저장된 화일은 윈도우의 탐색기에서 아이콘 모양도 나오고 더블 클릭하면 HWP가 실행되는 것 처럼 만들고 싶습니다.

> 어떻게 만드는지 도무지 몰라서 이렇게 질문하게 되었습니다.

> 프로그램내에서 어떻게 해야 되는지 아시는 분 계시면 대답해 주셨으면 감사하겠습니다.

> 부탁드립니다.

> 좋은 하루 되셔요 - ^.^ -



// 원도우즈 탐색기에서 파일을 더블클릭하면 그 파일의 확장자와

// 관련된 프로그램이 실행되는데 그 확장자와 관련된 프로그램을

// 사용자 임의로 지정하는 예제입니다



procedure TForm1.MyAssociateFileType;

var

Reg: TRegistry;

Begin

Reg := TRegistry.Create;

try

with Reg do

begin

RootKey := HKEY_CLASSES_ROOT;

OpenKey('프로그램명', True);

// 예: OpenKey('ActiveFTP', True);

WriteString('', '확장자 설명');

// 예: WriteString('', 'ActiveFTP 암호화 파일');

CloseKey;



OpenKey('ActiveFTPDefaultIcon', True);

// 첫번째 파라미터는 공백으로 해야 한다

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

CloseKey;



OpenKey('프로그램명shellopencommand', True);

// 예: OpenKey('ActiveFTPshellopencommand', True);

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

CloseKey;



RootKey := HKEY_CLASSES_ROOT;

OpenKey('.확장자', True);

// 예: OpenKey('.@@@', True); // .@@@ 의 확장자를 가진 파일은 이 프로그램을 호출

WriteString('', 'ActiveFTP');

CloseKey;

end;

finally

Reg.CloseKey;

Reg.Free;

end;

end;

우민석 wrote:

> 제가 만들고 싶은 프로그램은 HWP에서 처럼 HW P에서 저장된 화일은 윈도우의 탐색기에서 아이콘 모양도 나오고 더블 클릭하면 HWP가 실행되는 것 처럼 만들고 싶습니다.

> 어떻게 만드는지 도무지 몰라서 이렇게 질문하게 되었습니다.

> 프로그램내에서 어떻게 해야 되는지 아시는 분 계시면 대답해 주셨으면 감사하겠습니다.

> 부탁드립니다.

> 좋은 하루 되셔요 - ^.^ -



안녕하세요.



위와 같은건 레지스트리를 수정하셔야 합니다.



1.우선 regedit.exe 화일을 실행시킨다.

2.Ctrl+F 를 눌러 찾기 대화상자를 나타나게 한다.

3..dpr(점 dpr 입니다) 이라고 치고 검색을 한다.

4.위와같이 하면 아마도 .dpr 이 나오고 오른쪽에 기본값 - DelphiProject 라고 되어 있을겁니다.

5.다시 Ctrl+F 를 눌러 대화상자를 띄우고 DelphiProject 라고 치고 검색한다.

6.그러면 아마도 defaulticon, shell 이라는 항목이 나올겁니다.



설명은 여기까지 입니다. 위에 설명했듯이 그런식으로 레지스트리를 구성하시면 쉽게 확장자를 연결할수 있습니다.(나머지 확장자도 동일한 구조입니다)



자세한 내용은 레지스트리에 대한 델파이 도움말과 제가 설명한 방식을 따라 레지스트리를 분석해 보시기 바랍니다.