Use vista.pas for vista detection

git-svn-id: http://svn.dmdirc.com/trunk@4176 00569f92-eb28-0410-84fd-f71c24880f

installer/windows/Uninstaller.dpr

@@ -2,7 +2,7 @@ program Uninstaller;
 {$MODE Delphi}
 {$APPTYPE GUI}
 
-uses Windows, SysUtils, classes, registry;
+uses Windows, SysUtils, classes, registry, Vista;
 
 {$R uninstall.res}
 
@@ -85,7 +85,6 @@ end;
 var
 	TempDir: String;
 	InstallDir: String = '';
-	hK32: THandle;
 	i: Integer;
 	Reg: TRegistry;
 	handlerInfo: String;
@@ -98,10 +97,9 @@ begin
 		end;
 		InstallDir := trim(InstallDir);
 		KillDir(InstallDir);
-		hK32 := GetModuleHandle('kernel32');
 		profileDir := GetEnvironmentVariable('USERPROFILE');
 		
-		if GetProcAddress(hK32, 'GetLocaleInfoEx') <> nil then begin
+		if IsWindowsVista then begin
 			// Vista
 			KillDir(GetEnvironmentVariable('APPDATA')+'\Microsoft\Windows\Start Menu\Programs\DMDirc');
 			DeleteFile(GetEnvironmentVariable('USERPROFILE')+'\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\DMDirc.lnk');

launcher/windows/DMDirc.dpr

@@ -82,7 +82,6 @@ var
 	cliParams: String = '';
 	directory: String = '';
 	i: integer;
-	hK32: THandle;
 	jarName: String;
 	launcherUpdate: boolean = false;
 begin
@@ -105,8 +104,7 @@ begin
 	launcherUpdate := FileExists(directory+'\.DMDirc.exe') and FileExists(directory+'\.DMDircUpdater.exe');
 	if FileExists(directory+'\.DMDirc.jar') or launcherUpdate then begin
 		// Vista Sucks.
-		hK32 := GetModuleHandle('kernel32');
-		if GetProcAddress(hK32, 'GetLocaleInfoEx') <> nil then begin
+		if IsWindowsVista then begin
 			// Vista >.<
 			// Try and delete the old file, if it fails then the user needs to give
 			// us permission to delete the file (UAC), otherwise we can just go ahead