문제

이것은 이 질문 코드에서 설치 중에 액세스 해야하는 설치 패키지 (.CHM 도움말 파일)를 포함하고자하는 파일이 있습니다.사용자 컴퓨터에 설치할 필요가 없습니다.그래서 나는


- 설치 패키지에 파일을 포함시키고 압축을 풉니 다 (그래서 나는 [Files] ... external 플래그로 그것을 할 것임을 추측합니다).
- 다음과 같은 코드로 설치 중 파일을 참조하십시오.

procedure HelpButtonOnClick (Sender: TObject) ;   
var
    ErrorCode : Integer ;

begin
ShellExecAsOriginalUser ('open', ExpandConstant ('{???}') +  '\MyHelp.chm', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end ;
.

설치하기 전에 파일을 참조 할 수 있습니다 - i.e. 파일이 사용자 컴퓨터에 복사되기 전에?파일에 PATH PATH PATH를 지정하려면 어떻게합니까?위의 처리기를 호출하는 마법사 양식에 도움말 버튼이 있습니다.

도움이 되었습니까?

해결책

이것은 쉽습니다.그냥

[Files]
Source: "MyHelp.chm"; Flags: dontcopy

[Code]

procedure HelpButtonOnClick(Sender: TObject);
var
  ErrorCode: integer;
begin
  ExtractTemporaryFile('MyHelp.chm');
  ShellExecAsOriginalUser('', ExpandConstant('{tmp}\MyHelp.chm'), '', '',
    SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;
.

라이센스 : CC-BY-SA ~와 함께 속성
제휴하지 않습니다 StackOverflow
scroll top