Q&A

  • 첨부된 파일 실행하기
간단하게 만든 폼에서 버튼클릭시 첨부된 hwp나 워드문서를 실행시키는 소스코드를 좀 알고 싶습니다.물론 상대편이 hwp나 워드가 없으면 에러를 발생하고요 ..간단하게 될듯한데..아직길을 찾지 못하게 있습니다.

고수님들 꼭부탁드립니다.

1  COMMENTS
  • Profile
    민성기 2000.01.23 04:11
    lee wrote:

    > 간단하게 만든 폼에서 버튼클릭시 첨부된 hwp나 워드문서를 실행시키는 소스코드를 좀 알고 싶습니다.물론 상대편이 hwp나 워드가 없으면 에러를 발생하고요 ..간단하게 될듯한데..아직길을 찾지 못하게 있습니다.

    > 고수님들 꼭부탁드립니다.



    안녕하세요~ 민성기 입니다.



    다음과 같은 함수를 만들어 사용해 보세요...



    (*-------------------------------------------------------------------*)

    FUNCTION WINRUN(COMMAND,PARAMS,WORKDIR:STRING) : BOOLEAN;

    (* 명령어, 파라미터, 작업디렉토리를 인수로 받아서 실행한다.

    (*-------------------------------------------------------------------*)

    BEGIN

    COMMAND:=COMMAND+#0;

    PARAMS:=PARAMS+#0;

    WORKDIR:=WORKDIR+#0;

    RESULT := TRUE;

    IF SHELLEXECUTE(0{HANDLE},Nil{'OPEN'{},@COMMAND[1],@PARAMS[1],

    @WORKDIR[1],SW_SHOWNORMAL)<32 THEN

    BEGIN

    RESULT := FALSE;

    MESSAGEDLG('FAILED TO EXECUTE '+COMMAND,MTERROR,[MBOK],0);

    END;

    END;



    셸에 연동된 파일을 실행시키는 함수이므로... 아래한글 파일을 주면 그넘과 연결된 아래한글이 실행됩니다. 실패하면 적절한 에러를 띄우심 되겠구요~ ^^;

    글구 이 함수를 사용하려면 Uses문에 ShellAPI를 포함해야 합니다.



    그럼...



    -----------------------------------------------------------------

    델파이의 모든 것. 델파이 코리아. http://www.delphikorea.com

    -----------------------------------------------------------------