Lets try the right directory shall we?

Fixes issue 2595

Change-Id: Ib4d9ff5d51aeba164aed3ae8fff400c37a3de7e8
Reviewed-on: http://gerrit.dmdirc.com/495
Reviewed-by: Chris Smith <chris@dmdirc.com>
Automatic-Compile: DMDirc Local Commits <devs-public@dmdirc.com>

installer/windows/Uninstaller.dpr

@@ -1,31 +1,31 @@
 {*
- * DMDirc Uninstaller
- *
- * This application launches DMDirc on windows and passes control to the
- * update engine as necessary.
- *
- * DMDirc - Open Source IRC Client
- * Copyright (c) 2006-2010 Chris Smith, Shane Mc Cormack, Gregory Holmes,
- * Michael Nixon
- *
- * Permission is hereby granted, free of charge, to any person obtaining a copy
- * of this software and associated documentation files (the "Software"), to deal
- * in the Software without restriction, including without limitation the rights
- * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
- * copies of the Software, and to permit persons to whom the Software is
- * furnished to do so, subject to the following conditions:
- *
- * The above copyright notice and this permission notice shall be included in
- * all copies or substantial portions of the Software.
- *
- * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
- * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
- * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
- * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
- * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
- * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
- * SOFTWARE.
- *}
+ * DMDirc Uninstaller
+ *
+ * This application launches DMDirc on windows and passes control to the
+ * update engine as necessary.
+ *
+ * DMDirc - Open Source IRC Client
+ * Copyright (c) 2006-2010 Chris Smith, Shane Mc Cormack, Gregory Holmes,
+ * Michael Nixon
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+ *
+ * The above copyright notice and this permission notice shall be included in
+ * all copies or substantial portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ *}
 program Uninstaller;
 {$IFDEF FPC}
 	{$MODE Delphi}
@@ -61,8 +61,8 @@ procedure InitCommonControls; stdcall; External 'comctl32.dll' name 'InitCommonC
 { ---------------------------------------------------------------------------- }
 
 { ----------------------------------------------------------------------------
-  Create a temp directory and return the path to it
-  ---------------------------------------------------------------------------- }
+  Create a temp directory and return the path to it
+  ---------------------------------------------------------------------------- }
 function GetTempDirectory(): String;
 var
 	buf: array[0..MAX_PATH] of Char;
@@ -80,8 +80,8 @@ begin
 end;
 
 { ----------------------------------------------------------------------------
-  Delete a directory and all files it contains
-  ---------------------------------------------------------------------------- }
+  Delete a directory and all files it contains
+  ---------------------------------------------------------------------------- }
 function KillDir(Dir: string): Integer;
 var
 	searchResult: TSearchRec;
@@ -112,8 +112,8 @@ begin
 end;
 
 { ----------------------------------------------------------------------------
-  MAIN PROGRAM
-  ---------------------------------------------------------------------------- }
+  MAIN PROGRAM
+  ---------------------------------------------------------------------------- }
 var
 	TempDir: String;
 	InstallDir: String = '';
@@ -141,7 +141,7 @@ begin
 		end
 		else begin
 			// Not Vista
-			KillDir(GetEnvironmentVariable('USERPROFILE')+'\Microsoft\Windows\Start Menu\Programs\DMDirc');
+			KillDir(GetEnvironmentVariable('USERPROFILE')+'\Start Menu\Programs\DMDirc');
 			DeleteFile(GetEnvironmentVariable('USERPROFILE')+'\Application Data\Microsoft\Internet Explorer\Quick Launch\DMDirc.lnk');
 			DeleteFile(GetEnvironmentVariable('USERPROFILE')+'\Desktop\DMDirc.lnk');
 			profileDir := profileDir+'\Application Data\DMDirc';