From 5d0f5aeacfa4876f319d2505caa4d03280f63a11 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Tue, 16 Nov 2004 11:44:14 +0000
Subject: [PATCH] added lpi filetype regisitry setting. fixed file paths.

git-svn-id: trunk@6255 -
---
 tools/install/win32/lazarus.iss | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/tools/install/win32/lazarus.iss b/tools/install/win32/lazarus.iss
index 5fb8a0326f..c316241c3c 100644
--- a/tools/install/win32/lazarus.iss
+++ b/tools/install/win32/lazarus.iss
@@ -99,24 +99,29 @@ end;
 [UninstallDelete]
 Name: {app}\compilertest.pas; Type: files
 [Registry]
-Root: HKCR; SubKey: .lpr; ValueType: string; ValueData: LazarusProject; Flags: uninsdeletekeyifempty uninsdeletevalue
+Root: HKCR; SubKey: .lpi; ValueType: string; ValueData: LazarusProject; Flags: uninsdeletekeyifempty uninsdeletevalue
 Root: HKCR; SubKey: LazarusProject; ValueType: string; ValueName: ; ValueData: Lazarus Project; Flags: uninsdeletekeyifempty uninsdeletevalue
 Root: HKCR; SubKey: LazarusProject\DefaultIcon; ValueType: string; ValueData: {app}\images\LazarusProject.ico; Flags: uninsdeletekeyifempty uninsdeletevalue
 Root: HKCR; SubKey: LazarusProject\shell\open; ValueType: string; ValueName: ; ValueData: &Open Project; Flags: uninsdeletekeyifempty uninsdeletevalue
-Root: HKCR; SubKey: LazarusProject\shell\open\command; ValueType: string; ValueName: ; ValueData: "\""{app}\lazarus.exe\"" \""%1\"""; Flags: uninsdeletekeyifempty uninsdeletevalue
+Root: HKCR; SubKey: LazarusProject\shell\open\command; ValueType: string; ValueData: "{app}\lazarus.exe  ""%1"""; Flags: uninsdeletekeyifempty uninsdeletevalue
+Root: HKCR; SubKey: .lpr; ValueType: string; ValueData: LazarusProject; Flags: uninsdeletekeyifempty uninsdeletevalue
+Root: HKCR; SubKey: LazarusProjectSource; ValueType: string; ValueName: ; ValueData: Lazarus Project; Flags: uninsdeletekeyifempty uninsdeletevalue
+Root: HKCR; SubKey: LazarusProjectSource\DefaultIcon; ValueType: string; ValueData: {app}\images\LazarusProject.ico; Flags: uninsdeletekeyifempty uninsdeletevalue
+Root: HKCR; SubKey: LazarusProjectSource\shell\open; ValueType: string; ValueName: ; ValueData: &Open Project; Flags: uninsdeletekeyifempty uninsdeletevalue
+Root: HKCR; SubKey: LazarusProjectSource\shell\open\command; ValueType: string; ValueData: "{app}\lazarus.exe  ""%1"""; Flags: uninsdeletekeyifempty uninsdeletevalue
 Root: HKCR; SubKey: .lfm; ValueType: string; ValueName: ; ValueData: LazarusForm; Flags: uninsdeletekeyifempty uninsdeletevalue
 Root: HKCR; SubKey: LazarusForm; ValueType: string; ValueName: ; ValueData: Lazarus Form; Flags: uninsdeletekeyifempty uninsdeletevalue
 Root: HKCR; SubKey: LazarusForm\DefaultIcon; ValueType: string; ValueName: ; ValueData: {app}\images\LazarusForm.ico; Flags: uninsdeletekeyifempty uninsdeletevalue
 Root: HKCR; SubKey: LazarusForm\shell\open; ValueType: string; ValueName: ; ValueData: &Edit Form; Flags: uninsdeletekeyifempty uninsdeletevalue
-Root: HKCR; SubKey: LazarusForm\shell\open\command; ValueType: string; ValueName: ; ValueData: "\""Notepad.exe\"" \""%1\"""; Flags: uninsdeletekeyifempty uninsdeletevalue
+Root: HKCR; SubKey: LazarusForm\shell\open\command; ValueType: string; ValueData: "Notepad.exe ""%1"""; Flags: uninsdeletekeyifempty uninsdeletevalue
 Root: HKCR; SubKey: .pas; ValueType: string; ValueName: ; ValueData: LazarusUnit; Flags: uninsdeletekeyifempty uninsdeletevalue
 Root: HKCR; SubKey: .pp; ValueType: string; ValueName: ; ValueData: LazarusUnit; Flags: uninsdeletekeyifempty uninsdeletevalue
 Root: HKCR; SubKey: LazarusUnit; ValueType: string; ValueName: ; ValueData: Object Pascal Unit; Flags: uninsdeletekeyifempty uninsdeletevalue
 Root: HKCR; SubKey: LazarusUnit\DefaultIcon; ValueType: string; ValueName: ; ValueData: {app}\images\LazarusSource.ico; Flags: uninsdeletekeyifempty uninsdeletevalue
 Root: HKCR; SubKey: LazarusUnit\shell\open; ValueType: string; ValueName: ; ValueData: &Edit Source; Flags: uninsdeletekeyifempty uninsdeletevalue
-Root: HKCR; SubKey: LazarusUnit\shell\open\command; ValueType: string; ValueName: ; ValueData: "\""Notepad.exe\"" \""%1\"""; Flags: uninsdeletekeyifempty uninsdeletevalue
+Root: HKCR; SubKey: LazarusUnit\shell\open\command; ValueType: string; ValueData: "Notepad.exe ""%1"""; Flags: uninsdeletekeyifempty uninsdeletevalue
 Root: HKCR; SubKey: .inc; ValueType: string; ValueName: ; ValueData: LazarusInclude; Flags: uninsdeletekeyifempty uninsdeletevalue
 Root: HKCR; SubKey: LazarusInclude; ValueType: string; ValueName: ; ValueData: Object Pascal Include; Flags: uninsdeletekeyifempty uninsdeletevalue
 Root: HKCR; SubKey: LazarusInclude\DefaultIcon; ValueType: string; ValueName: ; ValueData: {app}\images\LazarusSource.ico; Flags: uninsdeletekeyifempty uninsdeletevalue
 Root: HKCR; SubKey: LazarusInclude\shell\open; ValueType: string; ValueName: ; ValueData: &Edit Source; Flags: uninsdeletekeyifempty uninsdeletevalue
-Root: HKCR; SubKey: LazarusInclude\shell\open\command; ValueType: string; ValueName: ; ValueData: "\""Notepad.exe\"" \""%1\"""; Flags: uninsdeletekeyifempty uninsdeletevalue
+Root: HKCR; SubKey: LazarusInclude\shell\open\command; ValueType: string; ValueData: "Notepad.exe ""%1"""; Flags: uninsdeletekeyifempty uninsdeletevalue