Sampron
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={code:MyPath}
DisableDirPage=yes
[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}
[_Code]
var
s: String;
function InitializeSetup(): Boolean;
begin
Result:=True
if not RegQueryStringValue(HKLM, 'SOFTWARE\My Program', 'Path', s) then
begin
MsgBox('Пошёл нах!', mbInformation, MB_OK)
Result:=False
end
end;
function MyPath(Param: String): String;
begin
if RegQueryStringValue(HKLM, 'SOFTWARE\My Program', 'Path', s) then
Result:=s
end;
|
