Cách ghi đường dẫn cài đặt vào sổ đăng ký sau khi cài đặt hoàn tất với thiết lập Inno

Question

Cách ghi đường dẫn cài đặt vào sổ đăng ký sau khi cài đặt hoàn tất với thiết lập Inno？

Cảm ơn trước!

Answer 1

Giống như TLama cho biết, bạn có thể đạt được thông qua ssPostInstall nếu bạn muốn khóa được thêm sau khi quá trình cài đặt hoàn tất.

[Code] 
procedure CurStepChanged(CurStep: TSetupStep); 
begin 
    if CurStep=ssPostInstall then begin 
    RegWriteStringValue(HKEY_LOCAL_MACHINE, 'Software\HHSTECH', 
    'InstallPath', ExpandConstant('{app}')); 
    end; 
end; 

Hoặc bạn có thể sử dụng AfterInstall sẽ được gọi sau khi tệp cuối cùng được cài đặt (sao chép).

[Files] 
Source: ".\THEVERYLASTFILE.XXX"; DestDir: "{app}"; AfterInstall: MyAfterInstall 

[Code] 
procedure MyAfterInstall(); 
begin 
    RegWriteStringValue(HKEY_LOCAL_MACHINE, 'Software\HHSTECH', 
    'InstallPath', ExpandConstant('{app}')); 
end; 

Answer 2

[Registry] 
Root: HKLM; Subkey: Software\HHSTECH; ValueType: string; ValueName: InstallPath; ValueData: {app}