سؤال

وهذا نوع من الاستمرارية هذا السؤال.لدي ملف أريد تضمينه مع حزمة التثبيت الخاصة بي (ملف تعليمات .CHM) الذي أحتاج إلى الوصول إليه أثناء التثبيت من التعليمات البرمجية.لا يلزم تثبيته على جهاز المستخدم.لذلك أريد أن
- قم بتضمين الملف في حزمة التثبيت، وربما يكون غير مضغوط (لذلك أعتقد أنني سأفعل ذلك باستخدام ملف [Files] ... external علَم).
- قم بالإشارة إلى الملف أثناء التثبيت باستخدام رمز مثل:

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

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

فهل يمكنني الرجوع إلى الملف قبل بدء التثبيت - على سبيل المثال.قبل أن يتم نسخ أي ملفات إلى جهاز المستخدم؟كيف أحدد المسار ExpandConstant ('{???}') إلى الملف؟لدي زر تعليمات في نموذج المعالج الذي يستدعي المعالج أعلاه.

هل كانت مفيدة؟

المحلول

هذا سهل.فقط افعل

[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