Chuvakstepan
Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
garbals
Юзай справку
Вот как у меня:
Цитата: [Icons]
Name: {userdesktop}\S.T.A.L.K.E.R.; Filename: {app}\bin\XR_3DA.exe; Tasks: desktopicon; Flags: createonlyiffileexists; WorkingDir: {app}\bin
Name: {group}\Начать игру; Filename: {app}\bin\XR_3DA.exe; Flags: createonlyiffileexists; WorkingDir: {app}\bin
Name: {group}\Руководство; Filename: {app}\manual.pdf; Flags: createonlyiffileexists
Name: {group}\Трейнер; Filename: {app}\trn.exe; Flags: createonlyiffileexists; WorkingDir: {app}
Name: {group}\Файл Readme; Filename: {app}\ReadMe.txt; Flags: createonlyiffileexists
Name: {group}\Интернет-сайты\Chuvakstepan Inc.; Filename: {app}\website.url; Flags: createonlyiffileexists; Tasks: url
Name: {group}\Интернет-сайты\Сайт игры; Filename: {app}\websitegameSTALKER.url; Flags: createonlyiffileexists; Tasks: url
Name: {group}\{cm:UninstallProgram,игры}; Filename: {uninstallexe} |
Sero
Я переписал свой скрипт (теперь Script Includes отсутствует напрочь)
Я попробовал из твоего кода реализовать вместо кнопки "Отмена" - "Удалить". Всё работает, но только сетап должен закрываться после нажатия на кнопку "Играть" или "Удалить" - а он не закрывается, может что-то не так:
Цитата: [Code]
var ResultCode:Integer;
ResultReg:string;
procedure CurPageChanged(CurPageID:Integer);
begin
if CurPageID=wpWelcome then
begin
if RegValueExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Chuvakstepan\STALKER-SHOC','SavePath') then
If WizardForm.FindComponent('NextButton') is TButton then
TButton(WizardForm.FindComponent('NextButton')).Caption:='Играть';
if RegValueExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Chuvakstepan\STALKER-SHOC','InstallPath') then
If WizardForm.FindComponent('CancelButton') is TButton then
TButton(WizardForm.FindComponent('CancelButton')).Caption:='Удалить';
end;
end;
function NextButtonClick(CurPageID: Integer): Boolean;
begin
if RegValueExists(HKEY_LOCAL_MACHINE, 'Software\Chuvakstepan\STALKER-SHOC','SavePath') then
begin
RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software\Chuvakstepan\STALKER-SHOC','SavePath', ResultReg)
Result:=False;
Exec(ResultReg+'\XR_3DA.exe', '', '', SW_SHOW,ewNoWait, ResultCode)
WizardForm.Close;
end
else
Result:=True;
end;
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Cancel:=True;
if CurPageID=wpWelcome then
begin
if RegValueExists(HKEY_LOCAL_MACHINE, 'Software\Chuvakstepan\STALKER-SHOC','InstallPath') then
begin
RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software\SOFTWARE\Chuvakstepan\STALKER-SHOC','InstallPath', ResultReg)
Exec(ResultReg+'\unins000.exe', '', '', SW_SHOW,ewNoWait, ResultCode)
Confirm:=False;
WizardForm.Close;
end;
end;
end; |
Сразу скажу Software\SOFTWARE\Chuvakstepan\STALKER-SHOC','InstallPath' = {app}
Software\Chuvakstepan\STALKER-SHOC','SavePath = {app}\bin |
Всего записей: 202 | Зарегистр. 29-01-2007 | Отправлено: 06:41 15-04-2007 | Исправлено: Chuvakstepan, 06:48 15-04-2007 |
|
