Question

C'est une sorte de continuation de cette question.J'ai un fichier que je veux inclure avec mon package d'installation (un .CHM fichier d'aide) que j'ai besoin d'accès lors de l'installation de code.Il n'a pas besoin d'être installé à l'ordinateur de l'utilisateur.Je tiens donc à
- inclure le fichier dans le package d'installation, probablement non compressé (donc je pense que je vais le faire avec un [Files] ... external drapeau).
- la référence du fichier lors de l'installation avec un code comme:

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

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

Je peux donc la référence du fichier avant le début de l'installation - à-d.avant tout les fichiers sont copiés sur l'ordinateur de l'utilisateur?Comment puis-je spécifier le chemin d'accès ExpandConstant ('{???}') pour le fichier?J'ai un bouton aide de l'assistant formulaire qui appelle la au-dessus de gestionnaire.

Était-ce utile?

La solution

C'est facile.Juste faire

[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;

Licencié sous: CC-BY-SA avec attribution
Non affilié à StackOverflow
scroll top