anchor.diff:  		InstallDir := trim(InstallDir);
   		KillDir(InstallDir);
   		hK32 := GetModuleHandle('kernel32');
  +		profileDir := GetEnvironmentVariable('USERPROFILE');
  +		
   		if GetProcAddress(hK32, 'GetLocaleInfoEx') <> nil then begin
   			// Vista
   			KillDir(GetEnvironmentVariable('APPDATA')+'\Microsoft\Windows\Start Menu\Programs\DMDirc');
   			DeleteFile(GetEnvironmentVariable('USERPROFILE')+'\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\DMDirc.lnk');
   			DeleteFile(GetEnvironmentVariable('USERPROFILE')+'\Desktop\DMDirc.lnk');
  +			profileDir := profileDir+'\AppData\Roaming\DMDirc';
   		end
   		else begin
   			// Not Vista
   			KillDir(GetEnvironmentVariable('USERPROFILE')+'\Microsoft\Windows\Start Menu\Programs\DMDirc');
  -			DeleteFile(GetEnvironmentVariable('USERPROFILE')+'\Application DataMicrosoft\Internet Explorer\Quick Launch\DMDirc.lnk');
  +			DeleteFile(GetEnvironmentVariable('USERPROFILE')+'\Application Data\Microsoft\Internet Explorer\Quick Launch\DMDirc.lnk');
   			DeleteFile(GetEnvironmentVariable('USERPROFILE')+'\Desktop\DMDirc.lnk');
  +			profileDir := profileDir+'\Application Data\DMDirc';
   		end;
   		// Remove irc:// handler if it is us.
   		deleteProtocol := false;
  
positive.code: 		Reg.CloseKey;
  		Reg.Free;
  		
  		MessageBox(0, PChar('DMDirc has been uninstalled from "'+InstallDir+'".'), 'DMDirc Uninstaller', MB_OK);
  	end
  	else begin
  
negative.code: 	i: Integer;
  	Reg: TRegistry;
  	handlerInfo: String;
  	profileDir: String;
  	deleteProtocol: boolean;
  begin
  	if (ParamCount > 0) then begin
  