pengjunjie/desktop-apps
1
0
Fork 1
mirror of https://github.com/ONLYOFFICE/desktop-apps.git synced 2026-04-07 14:09:22 +08:00
Code Issues Packages Projects Releases Wiki Activity

[win] force to add items to explorer 'New' menu

Browse Source
This commit is contained in:
Maxim Kadushkin
2020-06-10 15:46:30 +03:00
parent 2342602647
commit 888d68b36d
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
win-linux/package/windows/associate_page.iss
View File

@ -490,6 +490,7 @@ var
args, regpath: String;
progpath: String;
argsArray: TArrayOfString;
version: TWindowsVersion;
begin
AddKeyValue(langs, 'cs_CZ', 'cs-CZ:new.docx:new.pptx:new.xlsx');
AddKeyValue(langs, 'de', 'de-DE:new.docx:new.pptx:new.xlsx');
@ -528,6 +529,13 @@ begin
RegWriteStringValue(HKEY_LOCAL_MACHINE, regpath, 'IconPath', ExpandConstant('{app}\{#iconsExe},10'));
RegWriteStringValue(HKEY_LOCAL_MACHINE, regpath, 'FileName', progpath + '\' + argsArray[3]);
end;
GetWindowsVersionEx(version);
if (version.Major = 10) and CheckCommandlineParam('/FORCEADDMENUNEW') then begin
RegWriteStringValue(HKEY_LOCAL_MACHINE, 'Software\Classes\.docx', '', '{#ASCC_REG_PREFIX}.Document.12')
RegWriteStringValue(HKEY_LOCAL_MACHINE, 'Software\Classes\.xlsx', '', '{#ASCC_REG_PREFIX}.Sheet.12')
RegWriteStringValue(HKEY_LOCAL_MACHINE, 'Software\Classes\.pptx', '', '{#ASCC_REG_PREFIX}.Show.12')
end;
end;
procedure DoPostInstall();