anchor.diff:  		Reg.CloseKey;
   		Reg.Free;
   		
  +		if (FileExists(profileDir+'\dmdirc.config')) then begin
  +			if MessageBox(0, PChar('A dmdirc profile has been detected ('+profileDir+')'+#13#10+' Do you want to delete it aswell?'), 'DMDirc Uninstaller', MB_YESNO) = IDYES then begin
  +				KillDir(profileDir);
  +			end;
  +		end;
  +		
   		MessageBox(0, PChar('DMDirc has been uninstalled from "'+InstallDir+'".'), 'DMDirc Uninstaller', MB_OK);
   	end
   	else begin
  
positive.code: 		InstallDir := trim(InstallDir);
  		KillDir(InstallDir);
  		hK32 := GetModuleHandle('kernel32');
  		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');
  		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')+'\Desktop\DMDirc.lnk');
  		end;
  		// Remove irc:// handler if it is us.
  		deleteProtocol := false;
  
negative.code: 	i: Integer;
  	Reg: TRegistry;
  	handlerInfo: String;
  	profileDir: String;
  	deleteProtocol: boolean;
  begin
  	if (ParamCount > 0) then begin
  