ZVSRus1957
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
[Setup]
AppName=MyAppName
AppVersion=1.5
DefaultDirName={pf}\MyAppName
[Registry]
Root: HKCR; SubKey: *\shell\MyAppName; ValueType: string; ValueName: MUIVerb; ValueData: Открыть в MyAppName; Check: ContextMenuCheck; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKCR; SubKey: *\shell\MyAppName; ValueType: string; ValueName: Icon; ValueData: {pf}\MyAppName\MyAppName.exe; Check: ContextMenuCheck; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKCR; SubKey: *\shell\MyAppName\command; ValueType: string; ValueData: {pf}\MyAppName\MyAppName.exe %1; Check: ContextMenuCheck; Flags: uninsdeletevalue uninsdeletekeyifempty
[Code_]
var
ContextMenu: TNewCheckBox;
function ContextMenuCheck: Boolean;
begin
Result:= ContextMenu.Checked;
end;
procedure InitializeWizard();
begin
ContextMenu := TNewCheckBox.Create(WizardForm);
with ContextMenu do
begin
Parent := WizardForm.SelectDirPage;
Left := ScaleX(10);
Top := ScaleY(140);
Width := ScaleX(300);
Height := ScaleY(17);
Caption := 'Добавить программу в контекстное меню проводника';
end;
end;
|
|
Всего записей: 43 | Зарегистр. 14-05-2015 | Отправлено: 11:00 29-08-2016 | Исправлено: ZVSRus1957, 20:05 29-08-2016 |
|
